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Pom's n" 10 



RENDEZ VOTRE APPLE * ENCORE "PLUS" 

Cartes et accessoires additionnels compatibles APPLE II « 



DRIVE COMPACT 
MD 3 «HITACHI» 

Disque MD 3 

Le disque MD 3 entierement 
compatible APPLE est de petite taille 
mais de grande capacity. Le disque 
compact 3" b6n6ficie des dernieres 
innovations de la haute technologie 
HITACHI. 

Originality : son MEDIA protege et 
rigide otfre les garanties de FACILITE. 
FIABILITE. ROBUSTESSE. 



Specifications MO 3 COMPLET 

- Capacity DO : 500 K octets. A vec CONTROLEUR 

- Nombre de pistes : 80. 

- Densite : 100TPI. 

- Temps d'accfcs moyen : 55 ms. , 

- Temps piste a piste : 3 ms. 

- Vitesse de rotation : 300 T/mn. 

- Dimension : 90 x 40 x 150. 

- Poids : 0,8 kg. 

- Alimentation : 12 V, 0,5 A - 5 V, 
0,5 A. 

- Media : disquette compacte 3 
pouces HITACHI. 



disquette 
I'unM 85 f 



CABTE D'UNITE CENT RALE 

double procenMur 680E et Z 80. 64 K 
BAH 




3350 F 

' slots d'extensions. Fonctionne L -a>na>»H 
| sous CPIM DOS 3.3 voir carte de programmation 



CABTE Z 80 




Fonctionne sous CP/M 

Utilisation de tout logiciel sous CP/M. 

Entierement iguipe'e 



CARTE 80 COLONNES 




1 80 car. x 24 lignes. Resolution 7x9. Compatible avec 
I la plupart des traitements de texte BASIC. 
I PASCAL, CP/M. MODEM 
I Entierement Sguipe 



I TABLE GRAPHIQUE 




Pour reproduction du 
graphisme. connectable 
i la place du Joy-stick 



HONITEUBS 




ZENITH 

12" vert 



OCEANIC 

14" couleur 




CABTE DE PROGRAMMATION 
2716 




Programmation leclure/copie 
chargement de programme directement s 
Entierement 6quip6e 



CARTE D 'EXTENSION 
128 K BAM 




Emulation disk-drive 
sous DOS. PASCAL ou CP/M 
Entierement equipee 



CABTE DE CONNECTION 
SERIE / BS 232 C 




Entierement equ 



CABTE INTERFACE 
FLOPPY-DRIVE 




Permet la connection d'un lecieur de disques. 
Entierement equipfie 



MONITEUR COULEUR 
RTC 



Decrit dans Radio- Plans n" 429 
Tube A37 590 Y 
Chassis VCC 90 
electronique et 
mecanique 
COMPLET 




3800^ 1 |2890'b 

I Prix -i^^h^J 



CARTE LANGAGE 16 K RAM 




Pour extension du 48 K RAM en 64 K. Compatible 
FORTRAN PASCAL. LISP. BASIC 



CARTES D'INTERFACAGE 

Carte RVB (Pour moniteur couleur) 698 
Carte «SPEETCH. en anglais 698' 
Carte musicale pour synthjtiseur de son 888' 
Carte horloge 788' 
Carte video MODEM 2880' 

VENTILATEUB «FAN» 498' 
ALIMENTATION 220 v. 5 a 799' 



CARTE INTERFACE 
IMPRIMANTE 





Pour toutes margues sortie CENTRONICS - Bulter 
64 K RAM. 

LivrSe equipee en 16 K 
(extension jusgu'a 64 K) 



CLAVIER ASC II 




68 touches. Alphanumenque. 
Majuscules, minuscules, decimates 



COFFRET 

pour carte de base 
et pave numSrique 




equipe de 2 trimes 
pour recherche du point zero 



• APPLE est une marque deposee et apparent a APPLE COMPUTER S.A. 



CONDITIONS GENERALES DE VENIES PAR CORRESPONDANCE 

Pour eviter las Mia de eontre-rnmboursemenl. nous vous conseillons de regler vos 

commandes Iruegralement (y comoris frais de port). FORFAIT DE PORT : 25 F 



ACER MICRO 

42, rue de Chabrol, 75010 Paris. 
Tel. 770.28.31. 



FLOPPY DRI VE S" 

sans contraieur I 2699' 
avec controleur 

DISQUETTES POUR FLOPPY 

5" SF-SD. par 10 I'unite 19,50 

SF-SD, 16 secteurs 43,00 

SF-DD. 10 secteurs 43,00 

DF-DD, 96 TPI 33,00 

DF-DD. 16 secteurs 44.00 




IMPRIMANTE SEIKOSHA 
GBAPHIQUE COMPACTE 

GP 100 A 




PROMO 2280' 

Interface parallele en standard. 80 car./ligne. 50 car./ 
sec. Impression en simple ou double largeur Papier 
normal. Entramement par tracteurs ajustables. 

INTEBFACES POUR GP100 A 

APPLE II ou ME avec cable 99V 
Serie RS 232 99V 
ZX 81 880' 



Cables pour 



SANYO 880' 
HC 25 880- 



ORIC 
TO 7 



zev 
zev 



EFFACEUR D'EPBOM 
EN KIT 

Complet avec notice 



BON DE COMMANDS 

Veuillez me laire parvenir 
le materiel suivant 



Designation 


Prix 


Port 


25,00 


Total 



Reglement CCP □ C.B. □ 

M 

N" rue 



Code Postal 



..Mile.. 



Editorial 



Le monde de la micro-informatique subit en ce moment la revolution que de nombreux experts avaient 
annoncee ces derniers mois : la disparition de plusieurs fabricants. Osborne a depose son Man, Texas 
Instruments s'est retire du marche des ordinateurs familiaux. Atari a des problemes. Victor (Sirius) souf- 
fre, et on ne sait mime pas ce qu'il adviendra de Commodore, pourtant pratiquement le seul au- 
jourd'hui a gagner encore de I'argent dans le marche de 1'ordinateur familial. Quant aux actions d'Ap- 
ple, elles ont baisse des deux tiers entre juin et septembre 1983... II reste IBM. qui marche tres fort pour 
des raisons multiples que nous n'avons pas le temps de detailler ici. et les Japonais dont on peut a juste 
titre craindre le deferlement sur nos marches dans les mois a venir. maintenant qu'ils se sont assure le 
concours des meilleures societes de logiciel, telles que Microsoft. 

Enfin, pour ma part, travaillant personnellement sur Apple et IBM PC, je peux vous garantir que je ne 
dispose, sur mon PC, que d'une infime fraction des logiciels dont je beneficie sur 1' Apple. Le temps de 
1 Apple n'est done pas encore revolu : je viens d'ailleurs d'acquerir une carte Quadlink qui me permet 
de faire fonctionner 1'IBM PC comme un Apple Plus 40 colonnes. Helas, cette carte n'autorise pas 
encore la simulation du //e ou de cartes 80 colonnes. Mais cela viendra certainement... 

Dans ce numero, Rene Fakir (eh oui, e'est un pseudonyme. mais il s'agit de quelqu'un qui contribue 
pour la premiere his a Pom's !) vous parle de communication, sujet que nous avions promis de couvrir. 
Jean-Francois Groussin vous propose un programme d'aide au dessin HGR et un programme 
d'ecriture de caracteres geants sur imprimante. Jean-Michel Clin vous donne un "patch " du DOS qui 
facilite la manipulation des programmes en BASIC Integer. Dominique Compere vous offre pour sa 
part un programme de gestion de compte bancaire dont 1'interet peut etre a la fois "utilitaire" et peda- 
gogique. 

Les amateurs du Pascal trouveront dans ce numero un programme original de creation graphique 
realise par Nicolas Montsarrat. Toujours dans le domaine graphique. Philippe et Guy Mathieu 
presentent un ensemble de routines en Applesoft permettant la representation de series de valeurs 
numeriques, tandis que Philippe Krepper vous donne un moyen de reduire la place occupee sur 
disquette par les images HGR. 

Andre Airy met a la disposition des possesseurs de LISA un programme qui leur permettra de conver- 
ter les fichiers BIG MAC en programmes-sources utilisables par leur assembleur favori. Gerard Michel 
presente une routine dTNPUT permettant la saisie contrdlee de tableaux de variables. Olivier Herz, 
toujours astucieux, vous propose de realiser un calendrier perpetuel avec Visicalc. 

Dans le cadre de notre rubrique de bancs d'essai, Francois Renault analyse le nouveau CX Systeme 
et Guy Lapautre epluche le fonctionnement de Decisionnel Graphique. Jean-Francois Duvivier pre- 
sente avec sa competence habituelle les Micro-Informations et Olivier Herz assure, pour la derniere 
fois dans 1'annee a venir, le Courrier des Lecteurs. Enfin. ce qui ne gache rien, notre rubrique Trues et 
Astuces est en croissance reguliere. 

Nous rappelons aux lecteurs que, parfois, les disquettes leur parviennent "ecrasees" par les PTT (e'est 
un autre probleme que celui de la disquette "pliee", qui, lui. se repere de suite). Pour savoir si une 
disquette a subi pareil traitement, essayez de la faire tourner a la main ; toute resistance anormale est de 
ce point de vue significative et la disquette, ne pouvant etre entrainee par le lecteur. risque de presenter 
a l'usage les caracteristiques d'une disquette vierge (pas de "boot", pas de CATALOG...). Dans ce cas, 
avant de nous retourner la disquette concernee, essayez de decouper I'enveloppe en carton pour iiberer 
le disque et en permettre la lecture ; cette manipulation permet presque toujours de recuperer les don- 
nies qui, elles, ne sont pas sensibles aux surcharges ponderales ! Nous essayons de proteger nos dis- 
quettes et de faire appel aux bons soins des postiers (tous nos envois portent la mention "Ne pas plier, 
ni ecraser S.V.P."), et cela nous pose bien evidemment probleme de devoir remplacer des produits 
expedies en parfait etat mais deteriores pendant le transport. II serait difficile, pour vous comme pour 
nous, de payer un emballage plus cher que son contenu, uniquement pour limiter les consequences 
d'un service dont la qualite n'est pas toujours ce quelle devrait etre... 

Toujours au sujet des PTT, nous n 'avons rien pu faire face aux greves recentes que nous sommes bien 
forces de subir. Certains ont regu leur n" 9 tres tard. d'autres pas encore. Nous n'y pouvons malheureu- 
sement rien ; par contre, si un lecteur abonne n'a pas encore regu son numero ou sa disquette. nous 
sommes prits a lui re-envoyer ce qui aurait ete perdu par les PTT a 50 % du prix. 

Nous n'avons pas encore decide de la date a laquelle Pom's deviendra bimestriel, mais nous vous 
confirmons que cela arrivera en cours d'annee 84. Bonne lecture et a bientot ! 

Herve Thiriez 

Ont collabore a ce numero : Andre Airy - Jean-Michel Clin - Dominique Compere - Joel Delannoy - Jean-Francois Duvivier - Rene Fakir 
- Jean-Francois Groussin - Olivier Herz - Gerard Hisleur - Philippe Krepper - Guy Lapautre - Guy Mathieu - Philippe Mathieu - Gerard 
Michel - Nicolas Montsarrat - Francois Renault - Herve Thiriez. Redacteurs : Gerard Michel - Alexandre Avrane - Dessins : Laurent Bidot. 
Directeur de la publication - redacteur en chef : Herve Thiriez - Siege social et abonnements : Editions MEV - 49, rue Lamartine - 
78000 Versailles - Redaction et courrier des lecteurs : 59, bd de Glatigny - 78000 Versailles - Tel. : (3) 951.24.43 
Regie publlcltaire : Force 7 - Anne Jourdan - 39, rue de la Grange-aux-Belles - 75483 Paris Cedex 10 - Tel. : (1) 238.66.10. 
Diffusion aupres des boutiques et librairies : PSI Diffusion - BP 86 - 77402 Lagny-sur-Marne Cedex. 
Composition : Telecompo - 13-15, avenue du Petit Pare - 94300 Vincennes - Tel. : 328.18.63 
Impression : Rosay - 47, avenue de Paris - 94300 Vincennes - Tel. : 328.18.63. 
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MICRO-PERIPH 

ouvre les portes dc votre McippkZ II " 



Ouvert du mardi au samedi : 10 h - 12 h et 14 h - 18 h 
62, rue Ducouedic - 75014 PARIS (Tel. : 321.53.161 



NOUVEAU 

LECTEURS DE DISQUES RANA CINO POUCES 

3.3%as'caf e l rcP/M° d6leS PUi S ° n ' ,0US compalibles av °c Apple en DOS 

E !!! e |. capaclte 163 K 

"''I . capaclte 326 K 

capaclte 652 K 

Ces lecteurs de disques, fabriques aux Etats-Unis, sonl livres avec une 
membrane permettant de proteger les disques conlre I'ecriture. lis (one- 
tionnem parfaitement avec. les controleurs de disques Apple. Ces leoleurs 
?2 mois PreUV6S aUX E,a,s - Unls et sont ««* avec une garantie dl 



NOUVEAU 

WILDCARD (1 400 F T.T.C) 

Cetle carle equipee d'un bouton poussoir vous permel d'arreter I'execu- 
tion d'un programme et de decharger I'etat de memoire sur un dlsque. Ce 
qui veui dire que vous pouvez realiser des copies de programmes qui ne 
sonl plus protegees ou sauvegarder un programme de jeu a un niveau 
choisi. Grace a ces loglclels utilitaires, cette carte est de loin la plus puis- 
sante de ce genre. La carte est livree avec un manuel detaille en frangals 



NOUVEAU 

PROMOTION DE LECTEURS DE DISQUES — 2 550 F T.T.C.) 

• 100 % compatible avec Apple II + et He 

• Mecanique Siemens Corp. avec systeme vis sans tin 

• Electronique fabriquee en Grande-Bretagne 

• Entierement teste et garantl 12 mois 

• Operation tres silencieuse et precise 
^Pourles ventes par correspondance, veuillez ajouter 40 F de port.l 

VOUVEAU 

P , R ?? R , A » MMEUR D ' EPR0MS (1 400 F T.T.C). La carte se branche dans un 
oVVo S,,7, pp el P e,mel de Programmer directement les EPROMS (2758 
<Y16. 2732 et 2764). Un logiciel de gestion du programmer se trouve sur la 

I Sn r '® ?.! ™ m °"e morte. Une carte existe egalement pour adapter les 

LEPROMS programmes sur I'Apple II (630 F T.T.C). 

^EXTENSIONS DE MEMOIRE 

, U ;« n M cT 2 5i 1 ,?l2 F T T C ) ' U RAM 64K < 2 590 F TT C >. U - RAM 128K 
l < 4 -?5?, F TTC > l ph "«>s 7 et 4). VERSA RAM emulateur de disque (690 F 



LES CARTES « PILOTS » 

U-TERM (1 490 F T.T.C.) 

Cette carte qui vous donne 80 colonnes sur I'ecran vous permet d'avoir 
deux jeux de caracteres a la (ois qui sont co-residents dans la memoire 
Vive et la memoire morte de la carte. Par exemple, les caracteres trangais 
majuscules et minuscules ainsi que les caracteres anglo-saxons. Elle a 
une tres grande gamme de compatibility : APPLESOFT, PASCAL CP/M 
APPLEWRITER II, etc. (Photo 2). 

U-Z80 (1 150 F T.T.C.) : son point fort est la Vitesse : 4 MHz. Compatible avec 
tous les logiciels CP/M ou de Z80 (Photo 1). 

U-RAM16 (890 F TJ.C.) : e'est une carte langage entierement compatible 
avec INTEGER BASIC, PASCAL, VISICALC, etc. Pourquoi payer plus Cher? 
U iSP 2 <1 040 F TTC -> : une carte de serie, Vitesse variable entre 75 et 
19200 bauds. Cette carte contient son propre logiciel de handshake, ce qui 
permet de faire fonctlonner une Imprimante a sa vitesse optimale. Compa- 
tible avec le logiciel de communication VISITERM (Photo 9). 



LES PROMOTIONS 

Carte ACCELERATOR II 4 350 F T.T.C Interface graphique 
Monlteur Zenith Vert 1 120 F T.T.C. Ultraterm 
Moniteur Zenith Ambre 1 230 F T.T.C. SynthiStiseur vocal 
JOYSTICK 380 F T.T.C. Vision 80 

DISQUETTES grande marque • Le molns char a Paris. 
INTERFACE et BUFFER graphique pour Epson, etc. - 16 K 

LOCKSMITH systeme de sauvegarde de logiciels 
VENTILATEUR tres silencieux - garanti 5 ans 
ASSEMBLEUR "Merlin" (South Western Data Sys) 
APPLICARD carte CP/M 6 MHz avec 64 K RAM 
SAYBROOK carte 68000 12 MHz avec UCSD p. sys. etc 
C.I.A. le dernier ne dans les copieurs - tres puissant 
Contrdleurde disques Apple II +,//e 
Partageur imprimante parallele (3 micros, 1 1mprim.) 
SPEED STAR - compllateur de programmes en Basic 
Contr6leur de disques pour 4 drives 

STRUCTURED BASIC un nouveau basic ressemblant a Pascal 
LECTEURS et GENERATEURS de code a barres 



1 050 F T.T.C. 
5 100 F T.T.C. 

1 390 F T.T.C 

2 750 F T.T.C. 

1 750 F T.T.C 

2 850 F T.T.C. 
860 F T.T.C. 
750 F T.T.C. 
750 F T.T.C. 

3 950 F T.T.C 
17 500 F T.T.C. 

720 F T.T.C. 
580 F T.T.C. 
860 F T.T.C. 
980 F T.T.C. 
950 F T.T.C 
1 060 F T.T.C. 
NX. 



f CARTES SCIENTIFIQUES 

U-A/D (5 880 F T.T.C.) : carte analogue digitale haute Vitesse, 12 bits, 
16 voles (Photo 6). 

Carte AID 8 bits (1 400 F T.T.C), 1 voie (470 F T.T.C.) 
Carte D/A 8 bits (1 889 F T.T.C), 1 voie (450 F T.T.C.) 
U-BCD (1 120 F T.T.C.) (Photo 8) 

U-DT (1 350 F T.T.C), 32 llgnes entree-sortie avec temporisateur et ou«er 
U-TIM (1 120 F T.T.C), temporisateur 

U-2 P0RT(1 960 F T.T.C.) : 2 portes RS 232 sur la meme carte extensible 
jusqu'a 8 portes(Photo 5) 

THE MILL 6809 (NC) : co-processeurs a haute Vitesse et de multiproqram- 
mation 

Carte 68000 (NC) 16 bits + 32 bits Interne (Photo 3). 
Nous avons plusleurs autres cartes qui ne sont pas mentionnees ici; 
krenseignez-vous 



'NOUVEAU 

RAMEX 128 K AVEC V-C EXPAND VERSION 80-2 (5 800 F T.T.C.) 
Si vous souhaitez utiliser votre VISICALC avec : 

• 136 K de memoire • chargement d'un tableau complet en 20 secondes 

• 80 colonnes sur I'ecran (logiciel compatible avec 4 differentes cartes 
80 colonnes) 

• Largeur de colonnes variable Indivlduellement 

• Curseur programmable 

• Beaucoup d'autres ameliorations tres nombreuses 

(Ce logiciel qui est egalement compatible avec les cartes Saturn est dlspo- 
nlble separement (1 570 F T.T.C). La carte RAMEX 128 K est disponible 
' aussi separement pour 4 600 F T.T.C, y compris le logiciel SOLIDOS.) 



PROMOTIONS IMPRIMANTES 

EPSON FX 80 5 800 F T.T.C. EPSON RX 80 4 090 F T T C 

EPSON RX 80 F/T 4 210 F T.T.C. EPSON MX 100 6 250 F T.T.C 

MANNESMAN Spirit 80 3 750 F T.T.C. (80 cps, matrice 8x9, 142 car. par 

ligne, impression graphique). 

Si vous ne voyez pas ce que vous cherchez ou si vous deslrez de plus amples 
renseignements, telephonez a MICRO-PERIPH (321.53.16). Si vous ne pouvez 
vous dSplacer, telephonez-nous pour connaltre le revendeur le plus proche de 
chez vous ou completez le bon de commande ci-dessous. 
ROUTES NOS CARTES SONT GARANTIES 12 MOIS 



BON DE COMMANDE 

A decouper et envoyer a : 

MICRO-PERIPH, 62, rue DucoutSdic - 75014 Paris - Tel. : 321.53.16 
Je desire recevoir rapidement, sous pli recommande : 



QUANTITE 



DESIGNATION 



TOTAL T.T.C. 



Total 

Frais de port recommmande 

Cl-joint un cheque/C.C.P. de F : 



25.00 F 



MATGRAPH : votrc routine graphique 

Philippe et Guy Mathieu 



II existe de tres nombreux program- 
mes permettant de representer gra- 
phiquement des series de valeurs nu- 
meriques. Certains, tels APPLEPLOT 
ou VISIPLOT, se presentent inde- 
pendamment de tout programme de 
traitement. D'autres sont normale- 
ment associes a des programmes 
divers : PFS-GRAPH fait partie de la 
serie des PFS, DGRAPH est lie a 
DBASE II, etc... D'autres enfin sont 
ecrits sur mesure pour un probleme 
donne, par exemple une representa- 
tion de planning, de statistiques, ou 
encore de notes de musique... 

Sans etre tres complexes a ecrire, ces 
programmes doivent toutefois appor- 
ter une solution satisfaisante a un 
certain nombre de problemes specifi- 
ques du graphique : determination 
d'echelles convenables, trace dans 
un cadre standard, et ce quelles que 
soient les valeurs a representer, pos- 
sibility de titrage et inscriptions diver- 
ses sur ecran graphique, sortie sur 
imprimante... 

MATGRAPH (avec MAT comme Ma- 
thieu et non comme Mathematique !) 
est un sous-programme ecrit en Ap- 
plesoft destine a etre integre dans 
vos propres programmes de traite- 
ment. Vous pourrez alors, moyen- 
nant quelques precautions elementai- 
res, representer sous forme gra- 
phique les series de valeurs calculees 
par vos programmes (jusqu'a 200 
valeurs par serie). 

L'eventail des types de graphes qui 
vous sont proposes comprend le 
trace d'une ligne, le trace de symbo- 
les graphiques en chaque point 
(petits carres), Passociation des deux, 
et le trace de diagrammes a barres. 
Les abscisses sont graduees selon le 
nombre de valeurs contenues dans la 
serie et les ordonnees en nombres 
entiers associes a des puissances de 
10. Ainsi, une echelle allant de —3 a 
10 avec 10A2 permet la representa- 
tion de valeurs situees entre -300 et 
1000. 

Un fac-simile des diverses representa- 
tions possibles est donne a la fin de 
1' article. On y verra que MATGRAPH 
permet egalement de titrer les graphi- 
ques obtenus. On dispose enfin de 
deux options de sortie : impression 
du graphe ou enregistrement sur dis- 
quette. En ce qui conceme l'impres- 
sion, un emplacement est reserve 
pour que vous puissiez, si ce n'est 



deja fait, introduire les parametres 
specifiques de la commande graphi- 
que de votre imprimante. 

Utilisation 

Des l'appel du sous-programme, 
l'ecran passe en mode graphique 
(HGR) et deux lignes de commande 
apparaissent en bas de l'ecran. La 
premiere propose les quatre types de 
representation possibles, la seconde 
permet de mettre en oeuvre les op- 
tions de titrage, d' impression et de 
sauvegarde sur disque, ou de quitter 
le sous-programme. 

On se deplace sur ces lignes en utili- 
sant les fleches a droite et a gauche, 
tandis que le RETURN active le 
choix effectue. Les options de la der- 
niere ligne ramenent provisoirement 
a un ecran texte pour l'entree de 
donnees avant le retour a l'ecran 
graphique. 

Pour que vous puissiez faire un essai 
des differentes possibilites du pro- 
gramme afin de juger de l'interet de 
son integration a vos traitements, 
nous vous le proposons sur la dis- 
quette d'accompagnement de ce nu- 
mero associe a un mini-programme 
qui tire au hasard une serie de va- 
leurs. II va sans dire que chacun peut 
remplacer ces quelques instructions 
par d'autres de son choix. 

Quelques secondes d'attente sont 
inevitables des que Ton a choisi l'une 
des options graphiques avant que le 
graphe n'apparaisse a l'ecran; ce 
delai est d'autant plus long que la 
serie de donnees est importante. 

La fin d' execution renvoie au pro- 
gramme principal. 

Conditions d'emploi 

L'utilisation de MATGRAPH reclame 
quelques precautions. 

Le disque-programme doit contenir 
le programme en langage-machine 
ALPHAHGR qui permet l'ecriture sur 
ecran graphique. Ce programme se 
loge de l'adresse 37000 a l'adresse 
38400 et doit done etre protege par 
un HIMEM. 

A l'inverse, un LOMEM doit proteger 
la page graphique HGR contre les 
debordements intempestifs de varia- 
bles. 



De tres nombreuses variables, indi- 
cees ou non, sont utilisees. Pour evi- 
ter toute confusion, la plupart d'entre 
elles ont pour premier caractere la 
lettre G (il y a aussi des variables ba- 
nales d' indices de boucles et des va- 
riables classiques de coordonnees en 
X et Y). One bonne precaution 
consiste done a eviter l'emploi de va- 
riables dont le nom commence par G 
dans le programme appelant. 

II est en revanche indispensable de 
donner le nom GP$ a la serie de va- 
leurs a representer avant l'appel du 
sous-programme. Ce tableau doit 
etre prealablement dimensionne a 
200. II faut egalement preciser dans 
une variable GNF le nombre effectif 
de valeurs de la serie (cf. l'exemple 
donne dans la liste ci-apres). 

N'oubliez pas par ailleurs d'introduire 
les parametres relatifs a votre impri- 
mante a leur emplacement reserve 
(voir ci-dessous). 

Commentaire du listing 

Les instructions de protection 
(HIMEM et LOMEM) et de dimen- 
sionnement du tableau GP$ sont 
rappelees pour memoire en tete du 
programme. 

Viennent ensuite quelques instruc- 
tions qui ne sont utiles que pour le 
programme de demonstration (lignes 
1000 et suivantes). 

Le sous-programme MATGRAPH 
proprement dit commence a l'instruc- 
tion 60000 (numero eleve choisi 
pour eviter les interferences avec vos 
propres instructions, mais rien ne 
s' oppose a une renumerotation du 
sous-programme si vous l'estimez ne- 
cessaire). II comporte 5 parties. 

La premiere, a partir de 60000, ini- 
tialise les variables et dimensionne 
celles qui doivent l'etre. 
ATTENTION : le premier appel a 
MATGRAPH doit se faire par un 
GOSUB 60000, mais les suivants, a 
l'interieur d'un meme programme, 
doivent resulter d'un GOSUB 60050, 
sinon vous obtiendrez une erreur de 
redimensionnement et, eventuelle- 
ment, une erreur de lecture dans les 
DATA. 

Les instructions 60080 et suivantes 
sont reservees au parametrage de 
votre imprimante. 
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La seconde partie, a partir de 60100, 
gere les options de titrage, impres- 
sion, sauvegarde et fin du sous-pro- 
gramme. 

La troisieme, a partir de 60200, per- 
met le choix parmi les options du 
menu et retourne une valeur 1 1 cor- 
respondent a l'option choisie. 

La quatrieme, a partir de 60250, est 
destinee a l'ecriture sur ecran graphi- 
que. C'est elle qui appelle par un 



CALL le programme en langage ma- 
chine ALPHAHGR. 

La cinquieme enfin, a partir de 
60300, constitue le programme de 
trace graphique proprement dit, avec 
les 4 options qui ont deja ete evo- 
quees. Le choix est fait grace a une 
variable GO calculee a partir de la 
variable intermediate 1 1. 

Remarque generale 

Pour que le sous-programme MAT- 
GRAPH soit relativement facile a in- 



tegrer dans des programmes d'appli- 
cation, il etait indispensable d'en 
reduire au maximum la longueur. De 
ce fait, de nombreux controles utiles 
ont ete abandonnes. II est fort possi- 
ble, voire probable, que dans certai- 
nes circonstances particulieres l'ab- 
sence d'un controle entraine des 
perturbations inattendues. Si pareille 
chose devait vous advenir, les au- 
teurs sollicitent par avance votre in- 
dulgence et se fient a votre compe- 
tence pour combler le vide laisse par 
leur souci de concision. 



Programme MATGRAPH 

1 HI MEM : 36999 

2 LOMEM: 17000 

3 DIM GP<200) 

10 REM ======================== 

20 REM REPRESENTATION GRAPH I QUE 
30 REM DE SERIES DE VALEURS 
40 REM (APPLESOFT) 

50 REM ======================== 

1000 REM PROGRAMME DE DEMONSTRATION 

1010 GN = 30 

1020 FOR I = 1 TO GN 

1030 GP(I) = RND (1) * 100 - 33 

1040 NEXT 

10 50 GOSLIB 600 00 

1060 END 

60000 REM MATGRAPH 

60002 REM DATA ET DIMENSIONS 

60004 DIM G6< 200 ) , GH( 200 > 

60006 DATA L I GNE , SYMBOLES , L I GN+ SYMB , BAR 

RES.TITRER, IMPRIMER,SAUVER,QUITTE 
R 

60008 FOR I = TO 7: READ MENU*< I ) : NE 
XT 

60050 REM PARAMETRES D ' INITIALI SAT I ON 
60 52 HOME : HGR 

60054 D* = CHR* (4>:G* = CHR* <7>:Q* = 

CHR* (17) 
60056 G2 = .434294 

60058 XO = 50:YO = 134:XH = INT <XO / 7 

> :XV = INT <YO / 8) 
60060 PRINT D* " BLOADALPHAHGR .A37000 " 
60080 REM SUITE RESERVEE AUX PARAMETRES 

D' IMPRIMANTE 
*0100 REM COMMANDE 

60102 VT = 21 :HT = 1 : FOR I = TO 3: VT 
AB VT: HTAB I * 10 + 1: PRINT MEN 
U*<I>: NEXT : FOR I = TO 3: VTA 
B VT + 1: HTAB I * 10 + 1: PRINT 
MENU*< I + 4> : NEXT 

60110 POKE - 16304,0: GOSUB 60202: NOR 
MAL : VTAB 3: FOR I = 1 TO 5: PRI 
NT " 

" : NEXT 

60112 IF II = 7 THEN NORMAL : TEXT : R 
ETURN 

60114 IF II < 4 THEN GO = II + 1: GOSUB 

60300 : GOTO 601 10 
60116 POKE - 16303,0 

60118 ON II - 3 GOTO 60120,60140,60160 
60120 VTAB 3: PRINT "TITRE A DONNER AU 

GRAPH ? <20 CARACTE 

RES MAXI ) 



! STOP" 

60122 VTAB 5: INPUT GT* : IF GT* = "" TH 
EN PRINT G*;G*: GOTO 60120 

60124 IF LEN < GT* ) > 20 THEN PRINT G* 
;: PRINT 6* : GOTO 60120 

60126 VT = XV - 14.-HT = XH + 7 : L* = GT* : 
GOSUB 60250 

60128 GOTO 60110 

60140 VTAB 3 

60142 PRINT "METTEZ L' IMPRIMANTE EN ROU 
TE" 

60144 GET Z*: PRINT 
60146 PRINT D*"PRW1 " 
60148 PRINT Q* 
60150 PRINT D*"PR#0" 
60152 GOTO 60110 

60160 VTAB 3: PRINT " SOUS QUEL NOM VOUL 
EZ-VOUS 

60162 INPUT "SAUMER CE FI CHI ER? 
" ; GS* 

60164 UTAB 6: INPUT " SUR QUEL LECTEUR D 

E DISQUES? " ;GZ* 
60 1 66 PR I NT D* " BSAVE " ; GS* ; " , A*20 . L*20 

00 ,D" ;GZ* 
60168 GOTO 601 10 
6020 REM MENU 
60202 VT = 21 :HT = 1 

60204 II = (.VT - 21 ) * 4 + < HT - 1 ) / 10 
60206 UTAB VT : HTAB HT : INVERSE : PRINT 

MENU*( I I ) 
60208 GET Z* : Z = ASC <Z*> 

60210 IF 2 = 13 THEN NORMAL : VTAB VT : 
HTAB HT: PRINT MENU* (II): RETURN 

60212 IF Z < > 8 AND Z < > 21 THEN P 
RINT G* ; : PRINT 6*: GOTO 60206 

60214 VTAB VT : HTAB HT : NORMAL : PRINT 
MENU*< I I ) 

60216 IF Z = 8 THEN HT = HT - 1 : I F HT 
< 1 THEN HT = 31 :VT = VT - 1 : IF 
VT < 21 THEN VT = 22 
60218 IF Z = 21 THEN HT = HT + 10: IF H 
T > 31 THEN HT = 1 :VT = VT + 1 : I 
F VT > 22 THEN VT = 21 
60220 GOTO 60204 
60250 REM A : ECRIT . HR 
60252 L = LEN <L*> 

60 254 FOR J J = 1 TO L : POKE 37799 + J J , 
ASC ( MID* (L*,JJ,1>): NEXT 

60256 POKE 37491 ,VT: POKE 37492, HT - 1: 
POKE 37490. L 

60258 CALL 37518: RETURN 

60300 REM TRACE 

60302 GA = GP(1):G2 = GP<1> 
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Attention ! 

MATGRAPH, comme d'autres programmes d'ailleurs, est 
totalement allergique au PLE. Vous pourrez facilement le 
verifier si vous avez le PLE. 



Tous ces graphiques ont ete crees a l'aide du programme 
MATGRAPH en modifiant eventuellement les instructions 
entre 50 et 60 000. 
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60304 
60306 
60308 
6031 
60312 
6031 4 
60316 
60318 
60320 

60322 
60324 
60326 
60328 
60330 
60332 
60334 
60 336 
60338 
60340 
60342 



FOR 1=1 TO GN 

IF GA > GP(I> THEN GA = GP<I) 

IF GP<I) > 6Z THEN G2 = GP( I ) 

NEXT 

GX = ABS <GZ>:GY = ABS ( GA) 

GM = GX: IF GY > GX THEN GM = GY 



GL = INT 

GO = GZ / (10 
GY = 



GY = GY 
GZ = GY * 



INT <G0) 
+ 1 



LOG (GM) * G2) 
GL) 
IF GY 



< > GO THEN 



GL) 
GL) 

GL) 



60344 

60346 
60348 

60350 

60352 

60354 I 

60356 

,60358 
60360 
60362 
60364 

60366 

60368 
60370 
60372 
60374 
60376 



(10 

Gl = GA / (10 
GB = INT (Gl) 
GA = GB * (10 
Gl = GY - GB:GG = 100 / ( GZ - GA) 

FOR 1=1 TO GN 
GG(I) = (GP(I) - GA) * GG 
GH( I ) = (I - 1 ) k 200 / (GN - 1 ) 

NEXT 

HCOLOR= 3 

HPLOT XO - 38, YO - 1 26 TO XO - 38 
,YO + 20 TO XO + 210,YO + 20 TO X 
+ 210, YO - 126 TO XO - 38, YO - 
126 

HPLOT XO - ?,YO - 100 TO XO - 7,Y 
- 100 TO XO - 7,Y0 t 1 TO XO t 
205, YO + 1 

FOR I = TO Gl : HPLOT XO - 9,Y0 
- I * 100 / Gl : NEXT 

IF GY * GB < THEN HPLOT XO - 7 
,YO + GB * 100 / Gl TO XO + 205, Y 
+ GB * 100 / Gl 
L* = STR* ( GY ) : HT = XH - 3.-VT = X 

V - 12: GOSUB 60250 
L* = STR* (GB):VT = XV: GOSUB 602 
50 

"10-" + STR* ( GL) : HT = XH:VT 
= XV - 13: GOSUB 60250 
11=1: I F GN > 1 THEN II = 5 : IF 
GN ) 50 THEN II = 10 
FOR I = TO GN STEP I I 
HPLOT XO + I * 200 / GN , YO + 4 
NEXT 

L* = "1":HT = XH:VT = XV + 2: GOSU 
B 60250 

L* = STR* ( GN ) : HT = XH + 28: GOSU 
B 60250 

FOR I = 1 TO GN 
X = GH(I) + XO:Y = YO - GG( I ) 
IF GO = 1 THEN 60380 
IF GO = 4 THEN 60386 
HPLOT X - 1 ,Y - 1 TO X + 1 ,Y - 1 



TO X + 1 ,Y + 1 TO X - l.Y + 1 TO 
X - 1 ,Y - 1 
60378 IF GO = 2 THEN 60 390 

60380 IF I > I THEN HPLOT XX, YY TO X.Y 
60382 XX = X:YY = Y 
60384 IF GO < > 4 THEN 60390 
60386 11=4: I F GN > 10 THEN II = 2: IF 
GN > 25 THEN I I = 1 : I F GN ) 50 

THEN 11=0 
60388 HPLOT X - II.YO TO X - I I , Y TO X 

+ I I ,Y TO X + I I ,YO 
60390 NEXT 
60392 RETURN 

60410 DIM GG(200) ,GH(200) 

II faut entrer le code objet ci-dessous 
en moniteur, puis le sauwegarder avec : 
BSAVE ALPHAHGR,A37000,L1400 
Les zones *9088-9281 et *9373-*9600 
sont des tables que MATGRAPH man i pule. 

ALPHAHGR 
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90 


02 
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92 
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00 
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00 
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85 


ED 


AC 
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B9 
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93 
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E9 


20 


8D 


7A 


92 
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26 
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06 


F9 
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06 


F9 


26 


FA 
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AD 
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65 
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7A 
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69 
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F9 
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00 


85 


FA 


8A 
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07 


DO 
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8D 
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AD 
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8D 


77 
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78 


92 


AD 
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78 


92 


CD 


72 


92 


FO 


03 


4C 
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E3 


92 
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Creez des commandes automatiques 

Gerard Michel 



La petite routine en assembleur pre- 
sentee ici doit vous permettre, lors- 
que vous travaillez en mode "imme- 
diat", d'executer rapidement une 
serie de commandes (telle que 
TEXT : HOME : POKE 33,33 : LIST) 
ou de generer des "macro-instruc- 
tions" en BASIC lors de l'ecriture 
d'un programme (par exemple D$= 
CHR$(4):D1$ = CHR$(13) + D$ : 
PRINT Dl$"OPEN FICHIER. S6, 
Dl"). 

Pour ce faire, on constitue une table 
de codes-commande (stockee de 
$9500 a $9600) comportant pour 
chacun d'eux : 

- un code sur 1 caractere (un carac- 
tere du clavier accepte par la fonc- 
tion ASC, sauf ESC) 

- une adresse sur 2 octets renvoyant 
au libelle de la commande corres- 
pondante, les libelles etant pour leur 
part stockes en dessous de $9500. 

Le programme en Applesoft CRE- 
COM a pour but la creation de ces 
tables de codes et libelles. 11 vous de- 
mandera ainsi successivement : 

- le code (un RETURN a vide si- 
gnale la fin de la procedure de saisie 
des tables) 



- le libelle (255 caracteres au plus) 

- le statut de votre commande vis-a- 
vis du RETURN : un RETURN a la 
fin provoque 1' execution immediate 
de la commande si elle est possible, 
alors que 1' absence de RETURN 
vous permet de poursuivre 1' entree 
au clavier a la suite du libelle affiche. 

Vous pourriez par exemple creer le 
tableau suivant : 

1 CATALOGD1 (et RETURN) 

2 CATALOGD2 (et RETURN) 

3 HOME: POKE 33,33:LIST sans RE- 
TURN, afin de specifier le numero de 
la ligne a lister. 

En fin de saisie, vous preciserez le 
nom sous lequel vous desirez que 
votre tableau soit sauve sur disquette 
(COM pour l'exemple fourni sur la 
disquette d'accompagnement). 11 est 
ainsi permis de constituer, sous des 
noms differents, plusieurs tableaux 
de commandes en fonction de leur 
utilisation (instructions "mode-imme- 
diat", programmation ...). 

L' adresse de debut des libelles affi- 
chee par CRECOM vous permettra 
de fixer le HIMEM avant de charger 
les commandes en memoire. 



Pour utiliser ensuite les commandes, 
il faut changer 1' adresse de la routine 
d'entree de caracteres, afin de faire 
"transiter" ceux-ci par la routine 
COM. OBJ qui debute en $300. Pour 
cela, chargez la routine par BLOAD 
COM. OBJ puis tapez POKE 56,0 : 
POKE 57,3 : CALL 1002. 

Vous pouvez maintenant charger 
votre tableau de commandes 
(BLOAD COM par exemple). Par la 
suite, si vous voulez changer de ta- 
bleau, il suffira de le lire par BLOAD. 

RESET remet les adresses a leurs va- 
leurs initiales (entree standard). 

Pour appeler une commande, il faut 
taper CTRL-A, suivi du code corres- 
pondent. Si deux commandes ont le 
meme code, la routine renverra la 
premiere quelle rencontre (la pre- 
miere creee). Si le code n'existe pas. 
la main vous est rendue et le pro- 
chain RETURN provoquera une 
SYNTAX ERROR. 

Enfin, si vous tapez ESC juste apres 
CTRL-A, la liste complete des codes 
et libelles sera affichee. avec interrup- 
tion du defilement par CTRL-S si ne- 
cessaire et reprise de ce dernier par 
la frappe d'une touche quelconque. 



Programme CRECOM 



1 REM CREATION DE TABLES DE 

2 REM COMMANDES AUTOMATIQUES 

3 REM (APPLESOFT) 

4 REM ====================== 

5 HIMEM: 25000 

10 I = l:AC = 38144:DC = 38143 

20 PRINT "COMMANDE NO "I: PRINT : INPUT 
"CODE COMMANDE : ";CS: IF CS = " 
" THEN 80 

30 IF LEN (CS) > 1 THEN 20 

35 REM N'UTILISEZ PAS LA "->" POUR REL' 
IRE DES CARACTERES, MAIS RETAPEZ 
LES. LA "<-" EST AUTORISEE . 

40 PRINT "LIBELLE COMMANDE : " ; : HTAB 2 

o:zs = "•■ 

41 GET AS: PRINT AS;: IF ASC (AS) = 13 

THEN 46 

42 IF ASC (AS) = 8 AND LEN (ZS) = 1 T 



HEN ZS = "": GOTO 41 

43 IF ASC (AS) = 8 THEN ZS = LEFTS (Z 

S, LEN (ZS) - 1) : GOTO 41 

44 IF LEN (ZS) = 255 THEN AS = CHRS ( 

8): PRINT AS;: GOTO 43 

45 ZS = ZS ♦ AS: GOTO 41 

46 IF ZS = THEN 40 

48 INPUT "RETURN A LA FIN ? " ; RS f IF RS 
< > "O" AND RS < > "M" THEN 48 
50 DC = DC - LEN (ZS) - 1:HB = INT (DC 
/ 256): LB = DC - 256 « HB: POKE 
AC, ASC (CS) + 128: POKE AC ♦ 1,L 
B: POKE AC ♦ 2,HB:AC = AC ♦ 3 
60 FOR J = 1 TO LEN (ZS):Z = ASC ( MI 
DS (ZS,J,D) * 128: POKE DC + J - 

1,Z: NEXT :F = 254: IF RS = "O" 
THEN F = 255 
70 POKE DC * J - 1,F:I = I ♦ l: IF I < 

= 85 THEN 20 
80 PRINT : INPUT "NOM DU FICHIER : ";FS 
90 POKE AC,255:L = 38400 - DC:DS = CHR 
S (4): PRINT DS"BSAVE"FS",A"DC",L 
"L: PRINT "ADRESSE DEBUT LIBELLE= 
"DC: PRINT "ADRESSE FIN C0DE="AC 
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COM.SCE 




Lisa 1.5 

1 imiiiiiMiiimn. 




2 •* 




* 


3 ;« 


COMMflNJJES AUTQMATIQUES * 


4 ;» 


CODE 0BJET = 


COM. OBJ * 


5 ;* 

6 ;**«h 




* 


T 

7 ; 




************** 


S 


ORB $300 




9 CLflV 


EPZ $6 


;STQCKE CODE ENTRE AU CLAVIER 


10 TCOM 


EQU $9500 


; TABLE DES CODES-COMMANDE 


11 ADCOM 


EPZ $7 


;ADRESSE LIBELLE COMMANDE 


12 COUT 


EQU $FDED 




13 IN 


EQU $200 


; BUFFER D' ENTREE 


14 50 


JSR $FD1B 


;KEYIN => SfllSIE CflRflCTERE 


15 


CMP #$81 


; CTRL-fl ? 


16 


BNE SI 




17 


LDfl #1 




18 


STA ESC 




19 


JMP SO 




20 SI 


LDY ESC 




21 


CPY #1 




22 


BEQ S3 


;CODE flPRES CTRL-fl 


23 S2 


RTS 




24 S3 


LDY «0 




25 


STY ESC 




26 


CMP t$9B 


; ESC ? 


27 


BNE S40 




28 


JSR $FD8E 


;ENVOIE UN RETURN 


29 


LDX tO 




30 R2 


LDfl TCOM, X 




31 


CMP #$FF 


;FIN TABLE DES CODES ? 


32 


BEQ R3 




33 


JSR COUT 


;AFFICHE LE CODE 


34 


LDfl t$A0 


;SUIVI DE DEUX BLflNCS 


35 


JSR COUT 




36 


JSR COUT 




37 


INX 




38 


LDfl TCOM.X 


;ADRESSE DU LIBELLE 


39 


STfl ADCOM 




40 


INX 




41 


LDfl TCOM.X 




42 


STfl ADCOM+1 




43 


LDY #0 




44 R0 


LDfl (ADCOM), Y 




45 


CMP t$FE 


;FIN DU LIBELLE ? 


46 


BCS Rl 




47 


JSR COUT 


;AFFICHE LE LIBELLE 


48 


INY 




49 


JMP RO 




50 Rl 


JSR $FD8E 




51 


INX 




52 


JMP R2 




53 R3 


LDfl «$8D 




54 


LDX tO 




55 


RTS 




56 S40 


STfl CLflV 





57 S4 

58 

59 

60 

61 

62 

63 

64 

65 

66 S5 

67 

68 

69 
70 
71 
72 

73 S6 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 S7 
84 

85 S8 
86 

87 ESC 

88 

89 



LDfl TCOM,Y 
CMP CLflV 
BEQ S5 
CMP t$FF 
BEQ S2 
INY 
INY 
INY 

JMP S4 
INY 

LDfl TCOM, Y 
STfl ADCOM 
INY 

LDfl TCOM, Y 
STfl ADCOM+1 
LDY #0 

LDfl (ADCOM), Y 
CMP #$FF 
BEQ S7 
CMP t$FE 
BEQ S8 
STfl IN.X 
INX 

JSR COUT 
INY 

JMP S6 
LDfl #$8D 
RTS 

LDfl #$A0 
RTS 
DFS $1 
DCM "INT" 
END 



;CHERCHE LE CODE DANS Lfl TABLE 



jflFFICHE LIBELLE ET LE 
;STOCKE DANS BUFFER D' ENTREE 



Recapitulation COM. OBJ 



0300- 


20 


IB 


FD 


C9 


81 


DO 


08 


A9 


0308- 


01 


8D 


9A 


03 


4C 


00 


03 


AC 


0310- 


9A 


03 


CO 


01 


FO 


01 


60 


AO 


0318- 


00 


8C 


9A 


03 


C9 


9B 


DO 


3E 


0320- 


20 


SE 


FD 


A2 


00 


BD 


00 


95 


0328- 


C9 


FF 


FO 


2D 


20 


ED 


FD 


A9 


0330- 


AO 


20 


ED 


FD 


20 


ED 


FD 


E8 


0338- 


BD 


00 


95 


85 


07 


E8 


BD 


00 


0340- 


95 


85 


08 


AO 


00 


Bl 


07 


C9 


0348- 


FE 


BO 


07 


20 


ED 


FD 


C8 


4C 


0350- 


45 


03 


20 


8E 


FD 


E8 


4C 


25 


0358- 


03 


A9 


8D 


A2 


00 


60 


85 


06 


0360- 


B9 


00 


95 


C5 


06 


FO 


OA 


C9 


0368- 


FF 


FO 


AB 


C8 


C8 


C8 


4C 


60 


0370- 


03 


C8 


B9 


00 


95 


85 


07 


C8 


0378- 


B9 


00 


95 


85 


08 


AO 


OO 


Bl 


0380- 


07 


C9 


FF 


FO 


OF 


C9 


FE 


FO 


0388- 


OE 


9D 


00 


02 


E8 


20 


ED 


FD 


0390- 


C8 


4C 


7F 


03 


A9 


8D 


60 


A9 


0398- 


AO 


60 


4E 


FF 
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Gestion de compte bancaire 

Dominique Compere 



L'entree d'un ordinateur personnel 
dans la famille n'est pas toujours 
chose aisee et le prix de l'appareil 
doit parfois trouver sa "justification" 
au travers de quelques utilisations 
dites "serieuses" : tenue des comptes 
familiaux, gestion de la bibliotheque, 
preparation des menus selon les invi- 
tes ... 

Le programme que je vous propose 
a pour but de vous aider a tenir vos 
comptes bancaires, tout en vous per- 
mettant d'exercer vos talents en Ap- 
plesoft par l'ajout eventuel de sous- 
programmes de votre choix. 

Tout d'abord, il 'vous faudra definir 
les comptes concernes (numeros et 
libelles) : reportez-vous pour cela aux 
zones du programmes commengant 
respectivement aux lignes 1200 et 
40000. 

Ensuite. les operations automatiques 
doivent etre definies en DATA entre 
les lignes 20502 et 20700 sous la 
forme AA,BB.CC,DD,EE, avec : 

AA : numero du compte concerne 
BB : annee-mois du premier mois 
CC : annee-mois du dernier mois 
DD : libelle de F operation 
EE : montant de F operation 

Ainsi. une ligne telle que 20504 
DATA 031207, 8207, 8306, TELE- 
PHONE, -320 aura pour conse- 
quence un debit automatique de 320 
francs au compte numero 031207 
pour chaque mois de juillet 1982 a 
juin 1983. 

Une fois ces parametres fixes et le 
programme sauve sous sa version 
ufjlisable, vous pouvez en lancer 
F execution. 

II vous demandera tout d'abord le 
numero du compte sur lequel vous 
desirez travailler. Repondre par un 
"?" a cette question permet d'obtenir 
le rappel des comptes connus du 
programme. 

3 Deuxieme information a fournir : la 
periode de traitement (mois et 
annee). Notons ici que le programme 
utilise un fichier distinct par compte 
et par periode (le nom d'un tel fi- 
chier se compose du libelle du 
compte, complete par le mois et Fan- 
nee concernes). Chaque mois peut 
enregistrer un maximum de 99 ope- 
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rations. Si le fichier correspondant a 
la periode indiquee existe, il est lu en 
memoire dans le tableau TB$; sinon, 
le programme vous permet de le 
creer (ce sera le cas notamment lors 
de la premiere utilisation). 

L'ecran vous servira ensuite de fene- 
tre pour la saisie et Faffichage des 
operations. 

La derniere ligne constitue le niveau 
de saisie des commandes, que nous 
allons maintenant examiner plus en 
detail. 

1) Fleche a droite (-») : permet de 
descendre la fenetre d'une ligne. 

2) Fleche a gauche (*-) : permet de 
remonter la fenetre d'une ligne. 

3) Plus ( + ) : permet d'afficher les 20 
lignes suivantes. 

4) Moins (-) : permet d'afficher les 
20 lignes precedentes. 

5) A : ajout de une ou plusieurs 
lignes. 

Cette commande provoque Faffi- 
chage en haut de l'ecran de la der- 
niere ligne du tableau et le position- 
nement du curseur en tete de la 
premiere ligne blanche qui suit. Vous 
pouvez alors saisir vos operations, 
sous la forme suivante : 

• date de F operation : un nombre 
de 00 a 31 

• libelle de F operation (15 caracte- 
res maximum) 

• numero du cheque (7 chiffres sans 
RETURN). Si ce numero est egal 
au precedent donne augmente de 
1, tapez ":" en tete de la zone de 
saisie. 

Si F operation ne porte pas sur un 
cheque ou autre mouvement "nu- 
merate", tapez simplement RE- 
TURN sur cette zone. 

• montant de F operation, precede 
du signe "— " si c'est un debit (la 
decimalisation est donnee par le 
point et non la virgule). 

Vous indiquez la fin de la saisie en 
tapant "F" a la place de la date 
d'operation. 

6) C : correction d'une ligne. 

Cette commande doit etre suivie du 



numero de la ligne a corriger, en tete 
de laquelle le curseur viendra alors 
se placer. Si un element est a modi- 
fier, entrez la nouvelle valeur en res- 
pectant les regies de la commande A. 
sinon. tapez RETURN pour passer a 
F element suivant. 

7) S : suppression d'une ligne. 

Donnez, comme ci-dessus, le numero 
de la ligne concemee. Si cette der- 
niere existe, il vous sera demande 
confirmation de Fannulation. 

8) T : Totalisation jusqu'a une ligne 
incluse. 

Donnez le numero de la derniere 
ligne a prendre en compte et le pro- 
gramme vous repondra par le solde 
resultant des operations enregistrees 
de la premiere ligne jusqu'a celle-ci. 
Appuyez ensuite sur n'importe quelle 
touche pour revenir au niveau des 
commandes. 

9) V : rapprochement avec le releve 
mensuel de la banque. 

Apres la frappe de la commande, en- 
trez le numero du cheque (7 chiffres 
sans RETURN ou moins de 7 chiffres 
et RETURN). Si le cheque a bien ete 
enregistre, le programme vous en 
donne le montant et vous demande 
de confirmer (O ou N). Si le cheque 
ne peut etre retrouve. ou s'il a deja 
ete verifie, un message d'anomalie 
est emis. 

S'il s'agit d'une operation "sans nu- 
mero", entrez un "0" suivi de RE- 
TURN. Le programme vous propo- 
sera des montants correspondant a 
ce type d'operation (repondez N 
pour continuer la recherche et O si 
vous avez trouve). 

Tapez F pour terminer la verification. 

10) N : ouverture d'un nouveau 
mois. 

Apres confirmation de la commande, 
le programme realise les traitements 
suivants : 

- calcul du montant a reporter sur le 
mois suivant 

- sauvegarde sur disquette du mois 
en cours 

- remise a blanc du tableau en me- 
moire 

- ouverture d un nouveau mois 
(avec report) 



m 



- enregistrement eventuel des ope- 
rations automatiques. 

Un controle est fait sur 1' existence du 
nouveau fichier dont le nom est de- 
duit de celui du mois en cours. Si le 
fichier existe deja, le programme 
vous demande s'il doit en tenir 
compte ou, au contraire, le detruire. 
Si le fichier existant est conserve, le 



solde calcule est abandonne au profit 
du sien. 



1 1 ) F : fin du programme. 

Cette commande entraine la sauve- 
garde sur disquette du fichier en 
cours. Ceci s'effectue en trois 
etapes : 



- sauvegarde sous un nouveau nom 
+ VERIFY 

- destruction de la version prece- 
dente 

- RENAME de la nouvelle version. 

II est indispensable de ne pas chan- 
ger de disquette entre le debut et la 
fin du programme ! 



Programme GESCOMPTE 

5 REM GESTION COMPTE BANCAIRE 

6 REM (APPLESOFT) 

7 REM ======================== 



55 NB = O: REM NB ENREG LUS 
60 DEF FN Z(Z) = ( INT ( (Z 

50)) / 100 
70 DIM TBS(IOO): REM TABLEAU 

75 GOSUB 1600: REM TAB. MOIS 

76 TEXT : HOME 

77 GOSUB 100: GOTO 360 
80 REM 

90 REM 

95 REM « TRACE LE CADRE » 
100 REM 

no ls = "::::::::::::::::::: 



« 100) ♦ .0 



120 
130 
140 
150 
160 

170 



300 



320 
330 
340 
350 
352 
355 
360 
370 
380 

390 

400 
410 
430 

440 

480 
490 
500 
510 



520 
530 



MS = ":": INVERSE 
VTAB l: HTAB 1: PRINT LS; 
VTAB 3: HTAB 1: PRINT LS; 
VTAB 24: HTAB 1: PRINT LS; 
VTAB 2: HTAB 1: PRINT MS; : VTAB 2: 

HTAB 39: PRINT MS; 
FOR VH = 4 TO 23: VTAB VH : HTAB 1: 

PRINT MS;: VTAB VH: HTAB 39: PRIN 

T MS; : NEXT VH 
X = FRE (0): VTAB 2: HTAB 2: INVERS 

E : PRINT " GESTION DE VOTRE CO 

MPTE BANCAIRE ": NORMAL 
POKE 34,3 

POKE 33,37: REM LARGEUR 
POKE 32,1: REM MARGE GAUCHE 
POKE 35,23: REM BAS ECRAN 
RETURN 
REM 

REM « DEMANDE IDENTIF. « 

HOME : VTAB 5: HTAB 5 

INPUT "NUMERO DU COMPTE = "; NCPTS: 

IF NCPTS = ••?" THEN 40000 
GOSUB 1210: IF RC = 1 THEN VTAB 5: 

HTAB 5: CALL - 868: GOTO 380 
VTAB 23: HTAB 1: CALL - 868 
VTAB 9: HTAB 4 

INPUT "PERIODE TRAITEE ( MM , AA) = " ; 
MMS,AAS 

GOSUB 1400: IF RC = 1 THEN VTAB 9: 
HTAB 1: CALL - 868: GOTO 410 

REM 

REM « NOM DU FICHIER * 
HOME : VTAB 7: HTAB 5 

PRINT "COMPTE " ; LIBELLES; " NUMERO " 
;: INVERSE : PRINT NCPTS; : NORMAL 
: PRINT ".••; 
DES = "DE " 
IF MM = 8 OR MM = 10 THEN DES = "D' 



540 VTAB 11 

545 L2S = "PERIODE DU MOIS " + DES + MOI 

SS + ■•••♦ STRS (AA) 
550 HTAB (39 - LEN ( L2S ) ) / 2: PRINT L 

2S 

560 DSNS = LIBELLES + MOISS + ■•■•+ STR 

S (AA) 
570 VTAB 20: HTAB 9 

580 PRINT "ETES-VOUS D'ACCORD ?" 
590 VTAB 22: HTAB 4 

600 PRINT "ENTREZ O (OUI) OU N (NON) == 
> "; : GET AS 
PRINT AS: GOSUB 1300 
IF AS = "N" THEN 370 
IF AS < > "O" THEN 590 



610 
612 
614 
630 



660 



680 
800 
804 
806 
810 
815 
820 
825 
827 

830 
835 



l: CALL - 98: VTAB 1 
(CHARGEMENT DU FICHIER)" 
LEN (L2S) ) / 2: PRINT L 



R I T U R E 



VTAB 12: HTAB 

4-.L2S = 
HTAB (39 - 
2S 

670 L2S = "" 

GOTO 2000 
REM 

REM « E C 
REM 

PRINT : PRINT DS;"0PEN 
PRINT DS;"WRITE ";DSNS 
LET NS = NB 
IF NB < 1 THEN 9O0 

IF NS = 1 THEN PRINT NS: PRINT TBS 

(0) : GOTO 875 
FOR I = 1 TO NB - 1 

IF LEN (TBS ( I ) ) = THEN NS = NS - 



' ; DSNS 



840 
845 
847 
850 
855 
860 
865 
870 
875 
890 
900 
905 
910 
920 

930 
1200 
1210 
1215 
1220 

1225 



NEXT I 

IF NS < 1 THEN 900 
IF NS = 1 THEN 827 
PRINT NS 

FOR I = TO NB - 1 

IF LEN (TBS(D) = THEN 870 

PRINT TBS(I) 

NEXT I 

PRINT DS; "CLOSE " ; DSNS 
RETURN 

ERREUR : NB < 1 



HOME : INVERSE 
: PRINT "ERREUR : NB = 
: PRINT NB: NORMAL 



REM = 
REM 
TEXT 

PRINT : PRINT "ERREUR : NB = " ; : FL 

ASH 
STOP 
REM 

REM « CONTROLE IDENTIF » 
LET RC = 0: REM CODE RETOUR 
IF NCPTS = "1229006" THEN LIBELLES 

= "BNP ": RETURN 
IF NCPTS = "021683" THEN LIBELLES 
= "BPROP ": RETURN 
1230 IF NCPTS = "015927" THEN LIBELLES 



'P.E.L. 



RETURN 
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1260 
1270 



1280 

1300 
1310 
1320 
1330 
1350 
1360 
1370 
1380 
1400 
1410 
1430 
1440 
1450 



1460 
1470 
1490 
1600 
1610 
1620 
1630 

1635 
1640 
1645 
1650 

1655 

1660 
1700 
1705 
1710 
1720 

1730 
1740 
1750 
1760 



VTAB 23: HTAB 3 

CALL - 1052: PRINT "NUMERO DE COM 
PTE ";: FLASH : PRINT NCPTS; : NOR 
MAL : PRINT " INCONNU."; 

LET RC = l: GOSUB 1300: GOSUB 1300 
: RETURN 

REM 

REM "WAIT" 

FOR WA = 1 TO 300: NEXT WA 
RETURN 

FOR WA = 1 TO 30 
AA = PEEK ( - 16336) 

NEXT WA 
AA = FRE (0) : RETURN 

REM 

REM - CONTROLE DE DATE » 
LET RC = 
AA = VAL (AAS) : MM = 
IF AA < 80 OR MM < 1 
EN RC = 1 : VTAB 23: 
" DATE : FLASH : 
;AAS;: NORMAL : PRINT " ERRONEE." 
;: CALL - 1052: GOSUB 1300: GOSU 
B 1300: RETURN 
IF AA < 1900 THEN AA = AA * 1900 
MOISS = TMS(MM) 
, RETURN 
REM 

REM » TABLEAU DES MOIS » 
DIM TMS(12) 



VAL (MMS) 
OR MM > 12 TH 
HTAB 9: PRINT 
PRINT MMS;" " 



= "JANVIER" :TMS(2> = "FEVRIE 

= "MARS" : TMS ( 4 ) = " AVRIL" 

= "MAI":TMS(6> = "JUIN" 

= " JUILLET" : TMS ( 8 ) = "AOUT" 

= "SEPTEMBRE" : TMS (10) = "OCT 

= "N0VEMBRE":TMS(12> = "DEC 



TMS(l) 

R" 
TMS ( 3 ) 
TMS ( 5 > 
TMS (7) 
TMS (9) 

OBRE" 
TMS< 11 ) 
EMBRE" 
RETURN 
REM 

REM « TRAITEMENT FINAL * 
TEXT : HOME : GOSUB 95 
LIS = "SAUVEGARDE DU MOIS" 
: HTAB (40 - LEN (LIS)) 
PRINT LIS: PRINT 
GOSUB 7000 
HOME 

LIS = "AUTRE TRAITEMENT ? (0/N)" 
TAB 12: HTAB (40 - LEN (LIS) > 
2: PRINT LIS 



VTAB 12 

/ 2 



1770 

1775 
1780 
1785 
1790 
1810 
1820 
1830 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2100 



PRINT : 

AS 
IF AS = 
IF AS < 
X = FRE (0) 



HTAB 17: PRINT "=> 

"N" THEN 2155 
> "O" THEN 1750 



GET 



FOR I = 
TBS(I) = 
NEXT I 
HOME 
REM 
REM 
ONERR 



1 TO NB 



GOTO 360 



RECHERCHE FICHIER • 
GOTO 2100 
LET DS = CHRS (4) 

PRINT : PRINT DS;"VERIFY " ; DSNS 
POKE 216,0 
GOTO 2200 
REM 

CALL - 958: PRINT : HTAB 12: PRIN 
T "FICHIER INCONNU.": GOSUB 1350: 
GOSUB 1350: GOSUB 1350: POKE 216 



2140 
2155 

2160 

2167 
2168 
2170 

2172 
2174 

2176 

2178 
2180 



,0: GOSUB 1300: P3INT 
PRINT " V0ULE2-V0US LE CREER ? ( 

OU N) " ; : GET AS 
IF AS = "N" THEN TEXT : HOME : VT 

AB 12: HTAB 18: PRINT "F I N" : VT 

AB 23: HTAB 39: END 
IF AS < > "0" THEN VTAB 19: GOTO 

2140 
REM 

REM <<<<<CREATION VIDE>>>>> 
HOME : VTAB 5: HTAB 5: INPUT "REPO 
RT = ";AS 



THEN 2170 

FN 2(S0) : GOSU 



IF VAL (AS) < 
SO = VAL (AS) :S0 
B 9000 

VTAB 5: HTAB 14: PRINT SOS;: GOSUB 
1300 
MMS = RIGHTS 



TBS(O) = MMS + 



2200 
2210 
2230 
2240 
2250 
2260 
2270 
2275 



PRINT 



("00" ♦ MMS, 2) 

S0S:NB = 1: GOSUB 2 
GOSUB 800: GOTO 300 



2280 
2290 
2295 
3000 
3010 
3020 
3040 
3050 

3060 

3070 

3080 

3090 
3100 
3110 

3120 

3130 

3140 

3150 
3160 

3170 

3180 
3200 
3210 
4000 
4010 
4012 
4013 
4015 
4020 



0000: 

REM 

REM * CHARGE LE MOIS EN MEMOIRE » 
PRINT DS;"OPEN ";DSNS 
PRINT DS ; "READ " ; DSNS 
INPUT NB 

FOR I = TO NB - 1 
INPUT TBS(I) 

LET R1S = MIDS ( TBS ( I > , 25 , 7 > : IF 
VAL (R1S) > 99 THEN Rl = VAL (R 
IS) 
NEXT I 

PRINT DS;"CLOSE " ; DSNS 

LET CL = 1 

REM 

REM • PROGRAMME PRINCIPAL • 
TEXT : HOME :CL = 1 
GOSUB 11000 
A1S = "":A2S = 
. PRINT A1S; " 
IF ASC (A1S) 
1: GOTO 3040 
IF ASC (A1S) 

: GOTO 3040 
GET AS: IF ASC (AS) 



:A2 = o: GET Ais: 



= 21 THEN CL = CL ♦ 



= 8 THEN CL = CL - 1 



> 21 THEN A2S 
= A2S ♦ AS: PRINT AS;: GOTO 3080 
IF ASC (AS) < > 13 THEN 3040 
LET A2 = VAL (A2S) 

IF AIS = "A" THEN GOSUB 6000: GOT 

3O40 
IF AIS = 1 

TO 3040 
IF AIS = • 

TO 3040 

IF AIS = "S" THEN GOSUB 4000: GOT 

O 3040 
IF AIS = "F" THEN 



THEN CL = CL ♦ 20: GO 



THEN CL = CL 



20: GO 



IF AIS = "T" THEN 

O 3050 

IF AIS = "V" THEN 

3040 

IF AIS = "N" THEN 

IF AIS = "C" THEN 



GOTO 1700 
GOSUB 9500: GOT 

GOSUB 7500: GOT 

GOTO 8500 
GOSUB 4500 



GOTO 3040 
REN 

REM « SUPPRESSION « 

GOTO 4150 

REM 

GOSUB 5600 

L2S = "CONFIRMEZ SVP (0/N)":L3S 
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4030 
4050 

4060 
4070 
4080 
4090 
4100 
4120 
4130 
4140 
4150 
4160 
4170 



4180 

4200 
4210 

4500 
4502 
4510 
4512 
4520 
4530 

4540 

4570 
4590 

4600 



4610 
4620 
4630 

4640 
4650 

4740 

4750 
4760 
5500 
5510 
5560 

5570 
5580 
5585 
5590 
5600 
5610 



GOSUB 



1 THEN 4200 
IF CL > <NB - 



1) T 
RETU 



SUPPRIME": GOSUB 5500 
VTAB 3: HTAB 1 

GET AS: IF AS < > "O" THEN 
1350: GOSUB 5600: RETURN 

CALL - 868 
TBS(CL) = "'•: GOSUB 5600 

FOR 1=1 TO NB - 1 

IF LEN (TBffCD) > THEN 4120 
TBS CI) = TBS (I + 1>:TBS(I ♦ 1) 

NEXT I 
NB = NB - 1 

RETURN 

REM 

IF VAL (A2S) < 
CL = VAL <A2S) : 

HEN GOSUB 1350: GOSUB 5600: 
RN 

GOSUB 11000: VTAB 3: HTAB 1: GOTO 

4013 
REM 

L2S = "NUMERO DE LIGNE CNN) : " : GO 
SUB 5500: INPUT "";A2S: GOTO 4160 
REM 

REM *C0RRIGE- 
L3S = "CORRIGE" : GOSUB 5500 
C = VAL <A2S>: IF C > O THEN 4540 
L2S = "LIGNE <NN) : " : GOSUB 5500 

GET AS: PRINT AS; : GET BS : PRINT B 
S; :CS = AS * BS:C 

IF C < 1 OR C > NB 
1350: GOSUB 5600 
CL = C: GOSUB 11000 

LET JOS = "":LIS = 



= VAL (CS) 
- 1 THEN GOSUB 
: RETURN 



1 :nus = "■• :sos 



JOS = LEFTS (TBS(CL) ,2) :LIS = MID 
S (TBS(CL) ,4,15) :NUS = MIDS (TBS 
<CL) ,25,7) :SOS = MIDS (TBS(CL),3 
2,9) 

LC = 3: GOSUB 22000 
IF AS < > "00" THEN JOS = AS 
IF BS < > " •• then 

LIS = BS 

IF CS < > "OOOOOOO" THEN NUS = CS 
IF D < > THEN SO = D: GOSUB 900 


TBS(CL) = JOS LIS + ■■•■ + » 

" + NUS * SOS 
GOSUB 5600 
RETURN 
REM 

REM « MESSAGE/COMMANDE * 
VTAB 2: HTAB (40 - LEN ( L3S ) ) / 2 
: FLASH : PRINT L3S ; : NORMAL 
L3S = "•• 

PRINT "==> ";L2S; 



HTAB 1: 



- 868 
- 868: VTAB 
PRINT NB 

RETURN 



VTAB 24: 
L2S = "■• 
RETURN 

VTAB 2: HTAB 1: CALL 
VTAB 24: HTAB 5: CALL 
24: HTAB 38: INVERSE 

- l; 

5620 NORMAL : VTAB 24: HTAB 
6000 REM 

6002 REM * AJOUTER UNE LIGNE * 

6015 L2S = "ENTREZ L' OPERATION (OU F)":L 

3S = "AJOUT": GOSUB 5500 
6030 CL = NB - 1 : GOSUB 11000 
6040 LC = 4: VTAB LC: HTAB 1: GOSUB 2200 



6050 IF WS = "F" THEN GOSUB 5600: RETU 
RN 



BS:nus = cs:so = D: 



LIS 



.T":DS = 



':L3S = 



6090 JOS = AS: LIS 

GOSUB 9000 
6300 TBS(CL ♦ 1) = JOS - 

* " " + NUS ♦ SOS 

6310 NU = VAL (NUS): IF NU > 100 THEN R 

1 = NU 

6320 LET NB = NB * 1 : GOTO 6030 
6330 RETURN 

7000 REM « ECRITURE DU MOIS « 
7020 WDS = DSNS : DSNS = DSNS 

CHRS (4) 
7030 GOSUB 800: REM ECRIT. 
7040 PRINT DS" VERIFY ";DSNS 
7050 PRINT DS"DELETE " ; WDS 
7060 PRINT DS-RENAME " ; DSNS ; " , " ; WDS 
7070 RETURN 
7500 REM 

7505 REM • VERIFICATIONS • 
7510 L2S = "ENTREZ NUM. CHEQUE 

"VERIFIE" : GOSUB 5500 
7515 CS = — ■ 
7520 FOR I = 1 TO 7 
7522 GET AS 

7525 IF AS = "F" THEN GOSUB 5600: RETU 
RN 

7530 IF ASC (AS) = 13 THEN CS = RIGHT 
S ("OOOOOOO" ♦ CS,7): GOTO 7560 

7540 IF ASC (AS) < 48 OR ASC (AS) > 5 
7 THEN GOSUB 1350: GOTO 7510 

7545 CS = CS ♦ AS: PRINT AS; 

7550 NEXT I 

7560 FOR 1=1 TO NB - 1 

7570 IF MIDS ( TBS ( I ) , 25 , 7 ) = CS THEN 7 

610 
7580 NEXT I 

7600 GOSUB 5600 : L2S = "NON TROUVE" : GOS 
UB 1350: GOSUB 5500: GOSUB 1350: 
GOSUB 1300: GOTO 7510 
IF MIDS (TBS(I) ,24,1) = "V" AND C 

S = "OOOOOOO" THEN 7580 
IF MIDS (TBS(I) ,24,1) = "V" THEN 
7700 

GOSUB 5600 :L2S = MIDS (TBS (I), 32, 
9) * " ? (0/N) : ": GOSUB 5500: G 
ET AS 

IF AS = "N" THEN 7580 

> "0" THEN 7630 
LEFTS (TBS(I),23) + "V" + 
MIDS (TBS(I) ,25, 16) 
GOSUB 5600 :L2S = "OK": GOSUB 5500: 
GOSUB 1300: GOSUB 1300: GOTO 751 



GOSUB 5600:L2S = "DEJA VERIFIE" : G 
OSUB 1350: GOSUB 5500: GOSUB 1350 
: GOSUB 1300: GOTO 7510 
REM 

REM « CHANGEMENT MOIS » 
REM 

TEXT : HOME 

GOSUB 95:L1S = "AVEZ-VOUS D'AUTRES 
OPERATIONS" : VTAB 10: HTAB (38 - 
LEN (LIS)) / 2: PRINT LIS: PRIN 

T 

LIS = "A AJOUTER AU MOIS EN COURS ? 
": HTAB (38 - LEN (LIS)) / 2: PR 
INT LIS : PRINT 
VTAB 14: CALL - 868 

HTAB 17: PRINT " = > ■•; : GET AS: PRI 

NT AS; : IF AS = "0" THEN 3050 
IF AS < > "N" THEN 8535 
REM 



7610 
7615 
7630 



7640 
7645 
7650 

7660 



7700 



8500 
8505 
8510 
8515 
8520 



8530 



8535 
8540 

8550 
8559 



IF AS < 
TBS(I) = 
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8560 
8561 

8565 LET TT 
8570 FOR 
8580 Tl = 



8590 TT = 
8600 
8610 
8611 



REM CALCUL REPORT MOIS 
REM 



1=0 TO NB 
VAL < MIDS 
FN Z(T1) 
FN Z(TT) ♦ 
I 



(TBS<I) ,32,9) > :T2 



T2 



HTAB 15: PRINT TT 



NEXT 
REM 

REM SAUVE MOIS EN COURS 
8612 REM 

8615 PRINT : PRINT 
8620 GOSUB 7000 
8640 REM 

8650 REM 

8651 REM R.A.Z MOIS EN MEMOIRE 

8652 REM 

8660 FOR I = 1 TO NB : TBS < I ) = 
I 

8665 LET NB = 1 

8670 REM 

8671 REM CHANGE NUMERO MOIS 

8672 REM ET REPORT CALCULE. 

8673 REM 

8680 MM = VAL ( MMS ) : AA = VAL 
MM = 12 THEN MM = 0:AA 



NEXT 



(AAS) : 
= AA ♦ 



IF 
1 



8690 MM = MM ♦ 1:MMS = STRS ( MM ) : AAS = 
STRS (AA) 

8700 IF MM < 10 THEN MMS = "O" + MMS 
8710 SO = TT: GOSUB 9000 
8720 TBS(O) = MMS ♦ " 

■■ ♦ SOS 
8730 MOISS = TMS(MM) 
8735 GOSUB 1400: GOSUB 1210 
8740 DSNS = LIBELLES + MOISS 

RS < AA ) 
8745 GOTO 21000 
8750 PRINT :HT = 

: HTAB ht: 
8755 GOSUB 20000 
8760 PRINT DS;"OPEN ";DSNS 
8770 PRINT DS; "DELETE " ; DSNS 
8800 GOSUB 800 
8850 GOTO 3020 
9000 REM 

9010 REM * SO ===> SOS « 
9020 SW = FN Z(SO) 
9030 SOS = STRS <SW) 

9050 SOS = RIGHTS C" " + SOS, 9) 

9060 IF MIDS (SOS, 7,1) = " . " THEN RET 



ST 



(40 - LEN (DSNS) ) / 2 
PRINT DSNS: PRINT 



(SOS, 8,1) = " 
"0": GOTO 9050 
+ ".00": GOTO 9050 



THEN SOS 



URN 

9070 IF MIDS 
= SOS + 
9080 SOS = SOS 
9500 REM 

9510 REM « S O L D E « 

9511 IF A2 > NB - 1 THEN A2 = NB - 1 
9515 L2S = "TOTAL APRES LIGNE : " * A2S: 

L3S = "TOTAL": GOSUB 5500 
9600 TT = 
9610 FOR B = TO A2 

9620 Tl = VAL ( MIDS (TBS(B) ,32,9) ) :T2 
= FN Z(T1): IF T2 = O THEN 9640 
FN Z(TT) + FN Z(T2) 
NEXT B 

HTAB 31: CALL - 868 

INVERSE : HTAB 31: PRINT FN Z(TT) 
;: NORMAL : GET AS: GOSUB 5600: R 
ETURN 
REM 

REM »EDITEUR« 



9630 TT 
9640 
9650 
9660 



11000 
11010 



11015 
11030 

11040 

11050 
11110 
11115 
11117 
11120 
11130 
11135 
11140 



11150 

11160 
11170 



11180 
11190 
11200 
20000 
20010 
20012 
20014 
20020 
20030 
20040 
20045 
20O50 
20060 
20070 
20080 
20090 



20110 

20130 
20140 
20210 

20220 
20500 
20501 
20502 
20510 

20520 
20700 
21000 
21010 
21020 
21030 
21040 
21050 
21060 
21070 
21080 



21090 



21110 
21120 
21130 
21150 



REM 

POKE 35,23: POKE 34,2: POKE 33,40 
: POKE 32,0 

VTAB l: HTAB ((40 - LEN (DSNS)) 

/ 2) : PRINT DSNS 

IF CL < 1 THEN CL = 1 

IF CL > (NB - 1) THEN CL = NB - 1 

LET C2 = CL: REM SAUVE CL 

IF NB < 1 THEN 11180 

FOR EC = 3 TO 22 

VTAB EC: HTAB 1: PRINT TBS(CL); 

IF CL = NB THEN 11150 

VTAB EC: HTAB 22: INVERSE : PRINT 



RIGHTS ("0" 
ORMAL 

LET CL = CL + 

CL = NB: CALL - 
NEXT EC 

VTAB 24: HTAB 38 



♦ STRS (CL),2);: N 

l: IF CL > NB THEN 
- 958 



INVERSE : PRINT 
STRS (NB - 1),2) 



RIGHTS ("0" 
; : NORMAL 

VTAB 24: HTAB 1: PRINT "=> "; 

LET CL = C2 

RETURN 

REM 

REM » CONSTANTES » 
REM 

LET DS = CHRS (4) 
RESTORE 

READ NWS, DAS , DBS , DCS, DDS 
IF DAS = "00" THEN RETURN 
IF NWS < > NCPTS THEN 20030 
CPS = AAS ♦ MMS 
IF CPS < DAS THEN 20030 
IF CPS > DBS THEN 20030 
LET NB = NB + 1 

LET LC = LEN (DCS): IF LC > 14 T 
HEN DCS = LEFTS (DCS,15):LC = 15 
: GOTO 20130 

DCS = DCS + MIDS (" 
",1,15 - LC) 

SO = VAL (DDS): GOSUB 9000 

DDS = SOS 

TBS ( NB - 1) = "01" +••••♦ DCS + " 
•• + •• OOOOOOO" * DDS 

GOTO 20030 
REM 

REM CONSTANTES 
REM 

DATA 1229006,8301 ,8310, IMPOTS, -27 
60 

DATA 1229006, 8209, 8412, PEL, -600 

DATA 00,00,00,00,00 

REM 

REM • NOUVEAU EXISTE ? » 
REM 

POKE - 16368,0: REM RAZ CLAVIER 

ONERR GOTO 21400 

PRINT 

PRINT DS; "VERIFY " ; DSNS 

POKE 216,0: POKE 222,0 

HOME :L2S = "LE NOUVEAU MOIS EXIS 

TE DEJA . " : VTAB 12: HTAB (40 - L 

EN (L2S) ) / 2: PRINT L2S 

PRINT :L2S = "FAUT-IL LE SUPPRIME 

R (0/N) ?": HTAB (40 - LEN (L2S) 

) / 2: PRINT L2S; 

GET WS: PRINT 

IF WS = "0" THEN GOTO 8750 
IF WS < > "N" THEN 21080 
GOTO 2230 
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21400 POKE 216,0: POKE 222,0 

21410 GOTO 8750 

22000 REM « SAISIE DE LIGNE « 

22003 REM 

22025 REM ==== JOUR ==== 
22030 HT = 1:AS = 

22040 VTAB LC: HTAB HT : GET WS: PRINT W 

s; 

22045 IF WS = "F" THEN RETURN 
22050 IF ASC (WS) = 13 THEN 22080 
22055 IF ASC (WS) = 8 THEN 22030 
22060 AS = AS ♦ WS:HT = HT ♦ l: IF HT < 

3 THEN 22040 
22080 AS = RIGHTS ("00" ♦ AS,2):A = VA 

L (AS): IF A < OR A > 31 THEN 

GOSUB 1350: GOTO 22030 
22090 REM ==== LIBELLE ==== 
22100 HT = 4:BS = — • 

22110 VTAB LC: HTAB HT: GET WS: PRINT W 
S; 

22120 IF ASC (WS) = 13 THEN 22160 
22125 IF ASC (WS) = 8 THEN 22100 
22130 : 

22150 BS = BS ♦ WS:HT = HT + 1: IF HT < 

19 THEN 22110 
22160 BS = LEFTS (BS + " 

",15) 

22170 REM ==== NUM. CHEQUE ==== 
22180 HT = 25:CS = "" 

22190 VTAB LC: HTAB HT: GET WS: PRINT W 
3; 

22200 IF ASC (WS) = 13 THEN 22230 
22205 IF ASC (WS) = 8 THEN 22180 



22210 IF WS = ":" AND HT = 25 THEN GOT 
O 22700: REM NUM.CHQ.-l 

22220 CS = CS + WS:HT = HT ♦ 1 : IF HT < 
32 THEN 22190 

22230 CS = RIGHTS ("0000000" + CS,7) 

22240 REM ==== SOMME ==== 

22250 HT = 32:DS = "" 

22260 VTAB LC: HTAB HT: GET WS: PRINT W 
S; 

22270 IF WS = CHRS (13) THEN 22300 
22275 IF ASC (WS) = 8 THEN 22250 
22290 DS = DS + WS:HT = HT + 1: IF HT < 

41 THEN 22260 
22300 D = VAL (DS):DS = CHRS (4) 
22330 RETURN 
22700 REM 

22702 REM NUM.CHQ +1 

22705 IF Rl < 100 THEN 22180 

22710 Rl = Rl + 1:R1S = STRS (Rl) 

22720 CS = RIGHTS ("0000000" + R1S,7) 

22730 VTAB LC: HTAB 25: PRINT CS; 

22900 GOTO 22240 

40000 REM 

40010 REM LISTE DES COMPTES 
40020 REM 

40030 HOME : VTAB 9: HTAB 10 

40050 PRINT "1229006 BNP 

40080 PRINT : HTAB 10 

40090 PRINT "021683 BPROP 

40126 PRINT : HTAB 10 

40127 PRINT "015927 P.E.L. 

40130 PRINT : HTAB 20: GET AS 
40150 GOTO 370 



f MODEMS TELSAT 



1 



L'ACCES DE VOTRE MICRO ORDINATEUR AUX BASES DE DONNEES 

PAR LE RESEAU TELEPHONIQUE 





TELSAT 440 

Modem 300 bit/s full duplex 



TELSAT 640 

Modem 600/1200 bit/s full duplex 



Ces produits font partie de la gamme complete de modems, multiplexeurs et 
equipements de reseaux de transmission de donnees TELSAT distribues par 

w\ international 69-71, rue du chevaleret 75013 paris 

Tel. 58414 75 Telex 204120F 
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Compression d'images HGR 

Philippe Krepper 



Je vous propose ici deux petites rou- 
tines en langage-machine qui vous 
permettront, dans la majorite des cas, 
de reduire la place occupee sur une 
disquette par une image graphique 
en haute resolution. 

La premiere, IMAGE 1, analyse la 
page graphique ou reside 1' image 
pour en retirer les donnees essentiel- 
les. L' analyse se fait par series de 
256 octets. La routine prend un octet 
et le compare au suivant : s'ils sont 
identiques, elle continue ainsi jusqu'a 
ce qu'elle trouve un octet different 
ou qu'elle soit arrive au dernier de la 
serie. Dans l'un ou l'autre cas, elle 
stocke alors dans une zone tampon 
l'octet concerne et le nombre de ses 
occurrences consecutives, puis re- 
prend l'analyse. Au terme de celle-ci, 
la zone tampon peut §tre sauvee sur 
disquette. 

La seconde routine, IMAGE 2, utilise 
tout simplement les donnees de la 



zone tampon pour reconstituer 
1' image dans la page graphique. 

11 est evident que ces routines ne 
presentent d'interet que pour le trai- 




tement d'images comportant un mi- 
nimum d'octets consecutifs sembla- 
bles. A la limite, si tous les octets 
sont differents deux a deux, le resul- 



tat donne par IMAGE 1 occupera 
deux fois plus de place que 1' original! 

Les deux petits programmes en Ap- 
plesoft listes ci-apres illustrent 1' utilisa- 
tion des routines. 



TEST-COMP assure la "compres- 
sion" d'une image et la sauvegarde 
du resultat (sous le meme nom que 
1' original suivi de -COMP). En fin de 
traitement, il affiche le nombre d'oc- 
tets occupes par la zone tampon 
(LM), ce qui vous permet de savoir 
tout de suite si l'image merite d'etre 
retenue pour une utilisation sous 
forme anah/see. L'adresse de depart 
de la zone tampon doit etre POKee 
dans les memoires 8 et 9 (sous la 
forme octet bas - octet haut). 

TEST-DECOMP vous permettra pour 
sa part de verifier la restitution de 
l'image graphique par IMAGE 2 a 
partir de la zone tampon. 



Programme TEST-COMP 



•;IS 



1 INPUT "NOM DE L ' IMAGE 
5 HGR 

10 POKE 8,0: POKE 9,96:DS = CHRS (4): 

PRINT DS"BLOAD"IS 
15 IS = IS + "-C0MP" 

PRINT DS-BLOAD IMAGE 1 
8.-LM = PEEK (24) ♦ 

25): PRINT DS"BSAVE"IS",AS6000,L 
LM: TEXT : HOME : PRINT "LM="LM 



20 



OBJ": 
256 « 



CALL 76 
PEEK < 



Programme TEST-DECOMP 

1 INPUT "NOM DE L'IMAGE : ";IS:IIS = IS 
♦ "-C0MP":IS =IS + "-DEC0MP" 

5 HGR 

10 POKE 8,0: POKE 9,96:DS = CHRS (4): 

PRINT DS"BLOAD"IIS 
20 PRINT DS-BLOAD IMAGE 2 OBJ" : CALL 87 

4: PRINT DS"BSAVE"IS",AS2000,LS20 

00" 



1 


ORG $300 


IMAGE 1 


19 


CLC 


37 


LDY #$0 


2 IMAGE 


EPZ *6 


Lisa 1.5 


20 


ADC H1F 


38 


STA (TAMPON), Y 


3 tampon epz $8 




21 


STfl FIN 


39 


INY 


4 OCTET 


EPZ tfl 




22 


LDfl i$FF 


40 


LDA OCTET 


5 FIN 


EPZ $B 




23 


STfl LIMITE 


41 


STA (TAMPON) , Y 


6 LIMITE EPZ $C 




24 


LDfl #$0 


42 


LDA NO 


7 HPA6 


EPZ *E6 




25 


STfl IMftSE 


43 


CLC 


a NO 


EPZ *18 




26 BOUCLO LDY MO 


44 


ADC #2 


9 


LDfl #0 




27 


LDfl (IMftSE) ,Y 


45 


STfl NO 


10 


STfl NO 




28 


STfl OCTET 


46 


BCC SO 


11 


STfl NO+1 




29 B0UCL1 CPY LIMITE 


47 


INC NO+1 


12 


LDfl HPflG 




30 


BEQ SUITE1 


48 SO 


LDA TAMPON 


13 


CMP «*20 




31 


INV 


49 


CLC 


U 


BEQ SUITEO 




32 


LDfl (IMftSE), Y 


50 


ADC #*2 


15 


CMP mo 




33 


CMP OCTET 


51 


STA TAMPON 


16 


BEQ SUITEO 




34 


BEQ BOUai 


52 


BCC SUITE2 


17 


LDfl mo 




35 SUITE1 TYfl 


53 


INC TAMPON+il 


18 SUITEO STA IMA6E+$1 




36 


TAX 


54 SUITE2 TXA 
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55 
56 
57 
58 
59 
60 
61 
62 
63 
64 

65 SUITE 

66 

67 

68 

69 

70 

71 

72 RETOUR 
73 
74 
75 
76 



CLC 

ADC IMAGE 
STA IMAGE 
LDA IMABE+*1 
ADC #$0 
STA INA6E+$1 
CMP FIN 

BCC Bouao 

BEQ SUITE3 
BCS RETOUR 
LDA HFF 
SEC 

SBC IMAGE 
CMP #$0 
BEQ RETOUR 
STA LIMITE 
BNE BOUCLO 
LDY #$0 
TYA 

STA (TAMPON) ,Y 

RTS 

END 



1 IMAGE EPZ $6 

2 TAMPON EPZ $8 

3 TEMPOR EPZ $A 

4 HPA6 EPZ $E6 

5 LDA HPAG 

6 CMP #$20 

7 BEQ SUITEO 

8 CMP #$40 



IMAGE 2 
Lisa 1.5 



9 
10 

11 SUITEO 
12 
13 

14 BOUCLO 
15 
16 
17 
18 
19 
20 
21 

22 B0UCL1 
23 
24 
25 
26 
27 
28 
29 
30 

31 SUITE1 
32 
33 
34 
35 
36 
37 
38 

39 RETOUR 
40 



BEQ SUITEO 
LDA #$40 
STA IMASE+$1 
LDA #$0 
STA IMAGE 
LDY #$0 
LDA (TAMPON), Y 
CMP #$0 
BEQ RETOUR 
INY 

STA TEMPOR 
LDA (TAMPON), Y 
LDY TEMPOR 
DEY 

STA ( IMAGE) ,Y 
BNE B0UCL1 
LDA TEMPOR 
CLC 

ADC IMAGE 
STA IMAGE 
BCC SUITE1 
INC IMA6E+$1 
LDA TAMPON 
CLC 

ADC #$02 
STA TAMPON 
BCC BOUCLO 
INC TAMP0N+$1 
CLC 

BCC BOUCLO 
RTS 
END 



IMAGE 1 OBJ 



#300.379 



0300- 
0308- 
0310- 
0318- 
0320- 
0328- 
0330- 
0338- 
0340- 
0348- 
0350- 
0358- 
0360- 
0368- 
0370- 
0378- 



A9 00 
C9 20 
A9 40 
08 A9 
06 AO 
OC FO 
FO F5 
CB A5 
69 02 
A5 08 
02 E6 
06 A5 
OB 90 
FF 38 
85 OC 
08 60 



85 18 85 
FO 06 C9 
85 07 18 
FF 85 OC 
00 Bl 06 
07 CB Bl 
98 AA AO 
OA 91 08 
85 18 90 
18 69 02 
09 8A 18 
07 69 00 
BE FO 02 
E5 06 C9 
DO AD AO 



19 A5 E6 
40 FO 02 
69 IF 85 
A9 00 85 
85 0AC4 
06 C5 OA 
00 91 08 
A5 18 18 
02 E6 19 
85 08 90 
65 06 85 
85 07 C5 
BO OD A9 
00 FO 04 
00 98 91 



*36A.3A9 



IMAGE 2 OBJ 



036A- A5 E6 C9 20 FO 06 
0370- C9 40 FO 02 A9 40 85 07 
0378- A9 00 85 06 AO 00 Bl 08 
0380- C9 00 FO 25 C8 85 OA Bl 
0388- 08A40A 88 91 06 D0FB 
0390- A5 OA 18 65 06 85 06 90 
0398- 02 E6 07 A5 08 18 69 02 
03A0- 85 08 90 D8 E6 09 18 90 
03A8- D3 60 



Acces direct aux disquettes 



Gerard Michel 

Ce petit programme est un utilitaire rudimentaire qui vous 
permettra d'acceder directement a un secteur donne sur 
une disquette pour y lire ou y ecrire des informations. 

[-instruction d'appel a RWTS et les parametres des tables 
IOB et DCB sont "caches" a la fin du programme Apple- 
soft. En consequence, si vous trouvez ce dernier trop sim- 
pliste et desirez l'ameliorer, n'oubliez pas de verifier que 
vos modifications n'ecrasent pas les parametres ou de les 
deplacer dans le cas contraire. 

Les informations a fournir sont les suivantes : 

• Piste et secteur en decimal. 

• Commande : 1 pour lire ou 2 pour ecrire. 

• Lecteur concerne (1 ou 2). 

• Pour l'adresse-memoire a partir de laquelle seront trans- 
ferees les donnees. deux possibility vous sont offertes : 

- dormer l'adresse en decimal (par exemple 8192), 

- faire un "RETURN" sur la zone "Adresse decimale" et 
la donner ensuite en hexadecimal sous la forme 
Z1Z2,Z3,Z4 (par exemple, pour rentrer $2000. tapez 



Programme DIRAC 



10 

20 

30 

40 

45 
50 



70 Zl 
100 



';P: IN 



TEXT : HOME : INPUT "PISTE 

PUT "SECTEUR : ";S 
INPUT "COMMANDE : " ; C : IF C < 1 OR C 

> 2 THEN 20 
INPUT "DRIVE : ";D: IF D < 1 OR D > 

2 THEN 30 
INPUT "ADR. DECIMAL : ";ADS: IF ADS 

< > "" THEN 50 
INPUT "ADR. HEXA : " ; Zl , 22, Z3, Z4 
POKE 2496, P: POKE 2497, S: POKE 2504, 
C: POKE 2494, D: IF ADS < > "" TH 
EN AD = VAL (ADS) :HB = INT (AD 
/ 256) :LB » AD - 256 » HB: POKE 2 
500, LB: POKE 2501, HB: GOTO 100 

(Zl • 16) ♦ Z2:Z2 = (Z3 » 16) ♦ 
Z4: POKE 2501, Zl: POKE 2500, Z2 
CALL 2484: POKE 2508, D: END 



Programme DIRAC : code cache 

09B4- A9 09 AO BC 
09B8- 20 D9 03 60 01 60 01 00 
09C0- 00 OB CD 09 00 1C 00 00 
09C8- 01 E6 FE 60 01 00 01 EF 
09D0- D8 



! 
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Dessins avec une planche a clous 

Nicolas Monsarrat 



(* NICOLAS MONSARRAT MAI 83 «) 



PROGRAM DECLOUS; 

USES TURTLEGRAPHICS, TRANSCEND; 



CONST NPDEF 
TYPE CLOUS 



= 20; 
=RECORD 
GENRE 
ARGU 

END; 



: CHAR; 
: ARRAY CI . 
OF REAL 



.5] 



TABLEAU = ARRAY II.. 20,1.. 23 
OF CLOUS; 

VAR TAB : ARRAY [ 1 . . 20] OF CLOUS; 

CALC.POS : ARRAY CI.. 20 , 1 . .2] OF REAL; 

OPTION : CHAR ; 

MAXIND : INTEGER; 

BOITACLOU:FILE OF CLOUS; 

NP : INTEGER; 

X,Y : REAL ; 

PROCEDURE EFF ( LIGNE : INTEGER ) ; 
BEGIN 

GOTOXY (0 , LIGNE) ; 

WRITE( ' ' :40> ; 

GOTOXY <0, LIGNE) 
END; 

FUNCTION RAD ( ANGLE : REAL >: REAL ; 
BEGIN 

RAD := ANGLE » 0.0174532 
END; 

PROCEDURE ECRITURE < NOM : STRI NG ) ; 

VAR I: INTEGER; 

BEGIN 

REWRITE ( BO I T AC LOU , NOM ) ; 

FOR I := 1 TO MAXIND DO BEGIN 

BOITACLOU" .GENRE : = TAB C I J . GENRE ; 

BOITACLOU" .ARGU := TAB C 1 3 . ARGU ; 

PUT(BOITACLOU) 
END; 

CLOSE (BOITACLOU, LOCK) 
END; 



PROCEDURE LECTURE<NOM:STRING) 

VAR I : INTEGER; 

BEGIN 

<-SI-»> RESET C BOITACLOU, NOM) 
IF IORESULTOO 
THEN BEGIN 

WRITE(CHR(7) ,NOM, 

' N' 'EXISTE PAS' ) 
FOR I := 1 TO 4000 DO ; 
EX IT ( LECTURE > 
END; 
MAXIND := 0; 
REPEAT 

MAXIND := MAXIND + 1; 
TAB CMAXIND3 .GENRE := 
TAB CMAXIND3 .ARGU := 
GET (BOITACLOU > 
UNTIL EOF(BOITACLOU) ; 
CLOSE<BOITACLOU,LOCK) ; 
END; 



( »SI*« ) 



BOITACLOU". GENRE; 
BOITACLOU" .ARGU; 



PROCEDURE CALCUL; 
VAR I: INTEGER; 



Le but de ce programme est de si- 
muler a l'aide de I' Apple II la realisa- 
tion de dessins a base de clous. Cha- 
cun d'entre nous a. dans sa jeunesse, 
relie des clous plantes sur une plan- 
che suivant des motifs geometriques 
(cercles, droites...) au moyen de ficel- 
les. Ce programme vous permettra 
justement de realiser une infinite de 
creations de ce genre, avec tous les 
avantages que peut comporter 1' utili- 
sation de l'informatique : modifica- 
tion du dessin, insertion de clous, 
etc. De plus, vous pourrez recopier 
vos dessins sur une table tragante 
Watanabe si vous en etes equipe. 

Pour ce qui est de la programmation. 
le choix du Pascal s'imposait pour 
plusieurs raisons. Tout d'abord, il est 
plus facile d'ameliorer le programme 
grace a la clarte des noms de proce- 
dure : LECTURE(NOM:STRING); est 
plus "parlant" que GOSUB 9000. 

Ensuite, la gestion de la memoire as- 
suree automatiquement par le sys- 
teme Pascal elimine les problemes de 
collisions entre programme et page 
HGR. 

Enfin, la Vitesse issue de la compila- 
tion permet un trace rapide malgre 
les nombreux calculs effectues. 

Voyons maintenant concretement 
comment planter nos clous ! 

lis ne peuvent etre diposes que sur 
des droites ou sur des cercles. 

Une droite sera representee par qua- 
tre nombres (suivis d'un cinquieme 
inutile en l'espece) ; ainsi : 

D: XI Yl X2 Y2 (le "0" est ajoute 
par le programme) 

represente une Droite allant du point 
Xl-Yl au point X2-Y2. 

La representation des cercles reclame 
cinq nombres "utiles" : 

C: RAD AAX1 Yl 

represente un arc de Cercle de rayon 
R. de centre Xl-Yl, entre les angles 
AD et AA (compris entre -360 et 
+360 degres). Si AA est superieur a 
AD, les clous seront disposes dans le 
sens trigonometrique, et inversement. 

II existe egalement une instruction 
speciale, le separateur de syntaxe N : 

N: 

sert a realiser deux dessins indepen- 
dents (les clous de l'instruction prece- 
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dente ne seront pas relies a ceux de 
1' instruction suivante). 

Pour executer le programme, on 
tape au niveau COMMAND du Pas- 
cal un XJexecute du programme- 
code et le menu principal apparatt. 
On y trouve les options classiques de 
chargement (Load) et de sauvegarde 
(Save). Si vous ne chargez rien, ap- 
puyez sur N (pour nouveau dessin). 
L'Edition permet ensuite de visualiser 
et de modifier le dessin. 

Examinons de plus pres la creation 
de notre premier dessin. 

Pour confirmer l'effacement du des- 
sin anterieur, il faut repondre par 
"O" a la question "NOUVEAU FI- 
CHIER ?". Les commandes D, C et 
N deja evoquees apparaissent alors. 
Pour un premier exemple simple, 
vous pouvez taper : 



D 







279 







D 279 



279 191 



Les erreurs eventuelles seront corri- 
gees plus tard. 

Tapez F pour revenir au menu prin- 
cipal et marquer la fin de la saisie, 
puis passez dans l'Editeur. 

II s'agit d'un editeur de ligne, c'est a 
dire que Ton travaille sur les nume- 
ros des instructions et non sur le 
texte. Les commandes <M>odif. 
<I>nsert et <S>uppr sont les 
commandes d'edition classiques. 
L' option <N>pts change le nombre 
de clous des droites et des portions 
de cercle (la valeur par defaut est 
20). La commande <D>raw permet 
de visualiser le dessin. Pour effacer 
un dessin en memoire, il suffit de 
taper N. 

La commande <X>chang permet 
d'echanger les extremites de vos fi- 
gures; cela evite d'avoir a retaper les 
lignes ou liaisons qui ne conviennent 
pas. 

Si vous etes possesseur d'une table 
tracante Watanabe, vous pourrez y 
planter vos clous grace a 1' option 
<W>. Le nombre de points est tri- 
ple afin d'obtenir une densite compa- 
rable a celle de I'ecran. Les coordon- 
nees sont adaptees a la resolution de 
la table (environ 3600 sur 2600 
points). 

Une fois votre travail termine, il ne 
vous reste qua taper <F>in, sauver 
votre dessin et quitter le programme. 

Loin d'etre parfait, ce dernier permet 
neanmoins de creer facilement de 
beaux dessins par ordinateur. On 
pourrait ajouter d'autres figures geo- 
metriques, mais les possibility offer- 
tes par les droites et cercles sont deja 
infinies, ainsi que 1' usage saura vous 
en convaincre. 



BEGIN 
FOR 
IF 



I := 1 TO MAXIND DO 
TAB CI) . GENRE= ' C ' 
THEN 

CALCCI,1) := (RAD(TABCI) .ARGUC3) ) 

-RAD ( TAB CI] .ARGUC2) ))/NP 

ELSE BEGIN 

CALC CI, 1] : = (TAB CI] . ARGU [3] -TAB [I] . ARGO CI] > / NP; 
CALC [1,2] :=(TABCI] . ARGU C4] -TAB C I ] .ARGUC2] )/NP 
END 



END; 



PROCEDURE NOUVEAU; 
VAR CAR : CHAR; 

I,Z : INTEGER ; 
BEGIN 

WRITECNOUVEAU FICHIER :'); 
READ ( CAR > ; 
IF CARO'O' 

THEN EXIT(NOUVEAU) ; 
MAXIND := 1; 
WRITELN; 

IF EOLN THEN READLN; 
NP := NPDEF; PAGE (OUTPUT ) ; 
WRITELN ( ' C :CERCLE'>; 
WRITELN < ' D :DROITE'); 
WRITELN ( ' N ISEPARATEUR' > ; 
WRITELN ( ' F :FIN'); 
REPEAT 
REPEAT 

EFF(5) ; WRITE ( 'OPTION :'); 
READ ( CAR ) ; 
EFFC5) ; 

UNTIL CAR IN C'C','D','N','F'); 
IF CAR='C 

THEN BEGIN 

WRITE( 'RAYON :'); 

READ < TAB [MAXIND] .ARGUC1] ) ; 

G0T0XY<0,5) ; 

WRITE < ' ANGLE DEP. ARRIVEE :'); 

READ < TAB CMAXIND] .ARGUC2) , TAB CMAXIND3 .ARGUC3] ) ; 
EFF < 5) ; 

WRITE ( ' COORDONNEES DU CENTRE :'); 

READLN (TAB CMAXIND] .ARGUC43 , TAB CMAXIND] . ARGU C5] ) ; 
TAB CMAXIND] .GENRE := 'C 
END 
ELSE 

IF CAR = ' D ' 
THEN BEGIN 

WRITE( 'X1,Y1,X2,Y2 :'); 

READLN (TAB CMAXIND] .ARGUC1] , TAB CMAXIND] .ARGUC2] , 
TAB CMAXIND) .ARGU C3) , TAB CMAXIND] . ARGU C4] ) 
TAB CMAXIND] .ARGU C5] := O; 
TAB CMAXIND] .GENRE := 'D' 
END 

ELSE BEGIN 

TAB CMAXIND) .GENRE := 'N'; 
FOR Z := 1 TO 5 DO 

TAB CMAXIND] .ARGU CZ) := O 

END; 
IF CARO'F' 
THEN BEGIN 

G0T0XY(0,6-MAXIND> ; 
WRITE(TAB CMAXIND] .GENRE); 
FOR I := 1 TO 5 DO 

WRITE (TRUNC (TAB CMAXIND) .ARGU CI] ) :5) ; 
MAXIND := MAXIND ♦ 1 
END 

UNTIL CAR='F' ; 
MAXIND := MAXIND -1 
END; 

PROCEDURE RAPPEL; 
VAR S,NOM:STRING; 

NUM: INTEGER; 
BEGIN 

PAGE(OUTPUT) ; 

WRITE CNOM DU FICHIER :'); 
READLN ( NOM > ; 
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IF NOM=' ' 

THEN EXIT ( RAPPED ; 
PAGE(OUTPUT) ; 
LECTURE < NOM ) ; 
END; 

PROCEDURE ECRIT; 
VAR NOMtSTRING; 
BEGIN 

WRITE ( ' NOM DU FICHIER :'); 
READLN <NOM ) ; 

IF NOM=" THEN EXIT(ECRIT); 
ECRITURE(NOM) 
END; 

PROCEDURE XY(J : INTEGER); 
BEGIN 

IF TAB C J] .GENRE= ' C ' 
THEN BEGIN 

X := TAB [ J3 . ARGU C43 *TAB [J J . ARGU [ 1 ] 

• COS < POS [J , 1 ] *RAD ( TAB CJ3 .ARGU C2J ) ) ; 

Y := TAB C J] . ARGU [5] *TAB t J] . ARGU 1 1 3 

•SIN<POS[J,13 *RAD <TAB [J] .ARGUC23 > ) ; 
POSCJ.13 := POS[J,13 ♦CALCtJ.lS 
END 

ELSE BEGIN 

X := TAB C J3 . ARGU 1 1 3 *POS [ J , 1 3 ; 

Y := TAB t J 3 .ARGU [2] *POS CJ , 23 ; 
POSCJ.i: := POSCJ,13 - CALC[J,13; 
POS [ J , 23 := POSCJ.23 * CALCCJ.23 

END 

END; 

PROCEDURE DRAW; 
VAR I, J : INTEGER; 

FLAG 
CAR 
BEGIN 

CALCUL; 
FOR I 

DO BEGIN 
POS C 1 , 1 ] 
POS [1,23 
END; 
EFF<22) ; 

WRITE ( ' OVERLAY :'); 
READ(CAR) ;EFF<22> ; 
IF NOT < CAR IN CO' 

THEN EXIT ( DRAW ) ; 
IF CAR='0' 

THEN GRAFMODE 

ELSE INITTURTLE; 
I : = 1; 

FLAG := FALSE; 
REPEAT 

PENCOLOR ( NONE ) ; XY ( 1 ) ; 
MOVETO ( ROUND < X ) , ROUND < Y ) ) ; 
PENCOLOR(WHITE) ; 
FOR J := 2 TO MAXIND 
DO BEGIN 
XYCJ) ; 

IF TAB [J] . GENREO ' N ' 
THEN IF FLAG = FALSE 

THEN MOVETO (ROUND(X) ,ROUND<Y> > 
ELSE BEGIN 

FLAG := FALSE; 
PENCOLOR < NONE > ; 
MOVETO(ROUND(X) ,ROUND(Y> ) ; 
PENCOLOR(WHITE) 
END 



: BOOLEAN; 
:CHAR; 



:= 1 TO MAXIND 



:= O; 
:= 



' N ' 3 > 



ELSE FLAG 

END; 
I := I ♦ 1 
UNTIL I>NP*1; 
WRITE(CHR(7) ) ; 
READLN ( KEYBOARD ) ; 
TEXTMODE 
END; 



TRUE 




mysteres de la ligne 



Vous avez dus etre tres nombreux a 
avoir ete intringues de voir apparattre 
dans certains de nos programmes !a 
ligne 65535, ligne impossible a de- 
i modifier, car 1' Applesoft 
numero de ligne 
egal a 64000. Pour 
servir des lignes de 





Rompons pour une fois la magie et 
expliquons comment cela se realise. 
On utilise la routine FNDL1N 
($D61A) de 1'Applesoft qui cherche 
ligne dans la memoire de 1'Ap- 
gne dont le numero est contenu 
les memoires $50-51 (c 
50, octet haut en $51 
qui fournit 



5-9C (c 
ir). Chaque 
ar l adresse de la ligne suivante 
tets) puis continue par son nur 
octets) avant de contenir la ligne 
proprement dite et de se terminer 
par un zero. 

Des lors, tout est clair 
comment creer la ligne 65535 

• creer cette ligne en lui donnant !e 
numero 63999 ($F9FF) ; 

• faire ]CALL -151, puis: 

* 50:FF F9 N D61AG 9B.9C 

• noter l'adresse affichee (octet bas- 
octet haut), y ajouter 2, et afficher 
1' octet contenu dont l'adresse est 
le resultat, ainsi que le suivant : on 
trouve normalement "FF F9" ; 

• remplacer avec le moniteur 
F9" par "FF FF". 

Inversement, pour 
65535, il suffit de : 



• tuine - e une isne 

• faire ]CALL -151. puis: 

* 50:FF FF N D61AG 9B.9C 

• ajouter 2 a l'adresse obtenue: on 
doit y trouver FF FF qu'on rem- 
placera par FF F9 ; 

• detruire la ligne 63999 ainsi obte- 
nue. 




Olivier Hcrz 



s 
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Les joics du Profile... 



Apple France, c'est-a-dire Seedrin, a 
mis en oeuvre une politique 
commerciale qui, c'est le moins que 
Ton puisse dire, ne fait pas la joie de 
ses clients : meme si un equipemeht 
se revele deficient des l'achat, il n'est 
pas remplace mais repare. Le client, 
qui a deja paye, est prive de son 
equipement et voit en plus son 
temps de garantie reel diminue du 
temps de reparation. 

Pour les equipements standards, 
pour lesquels les revendeurs compe- 
tents peuvent effectuer la plupart des 
reparations, le client final ne s'aper- 
qoit en general de rien, le revendeur 
assurant le tampon. 

Par contre, le Profile ne peut a ce 
jour etre repare que par Seedrin. 
Voici ce qui est arrive a une entre- 
prise de services que nous connais- 
sons bien. Elle a recemment vendu 
deux systemes de gestion complets 
sur Apple /// avec deux Profiles dans 
chaque site. Aucun probleme au ni- 
veau des logiciels developpes pour la 
circonstance, qui donnent entiere sa- 
tisfaction. Malheureusement, dans 
chacun des deux sites, l'un des Profi- 
les a, des le debut, connu des pro- 
blemes. Le premier a ete immobilise 
deux semaines, apres avoir provoque 
deux destructions de fichiers : le 
client a failli faire un proces tellement 
tout cela I'a enerve. Dans le second 
site, le client est furieux lui aussi car 
on lui annonce un delai de repara- 
tion de deux a quatre semaines. 

Nous avons aussi entendu parler 
d'un pauvre acheteur de Profile dont 
le disque est deja plusieurs fois 
tombe en panne. Outre les immobili- 
sations successives de son outil de 
travail, ce client ne peut plus avoir la 
moindre confiance dans un equipe- 
ment qu'on refuse de lui echanger 
bien qu'il ne soit manifestement pas 
Sable. 

Comment peut-on pretendre que 
1' Apple /// est un ordinateur de ges- 
tion si Ton n'est pas en mesure de 
faire un remplacement standard 
quand un disque dur fonctionne mal 
des la livraison ou, pour le moins, de 
le reparer dans un delai raisonnable. 
done inferieur a la semaine ? 

Nous encourageons done Seedrin a 
agir pour ameliorer le sort des pos- 
sesseurs de Profile, soit en acceptant 
enfin le principe d'un echange pour 
des equipements fondamentalement 
defectueux, soit en mettant au moins 
en oeuvre les moyens necessaires 
pour effectuer rapidement les repara- 
tions eventuelles. Nous vous previen- 
drons si le ciel s'eclaircit a ce sujet. 



PROCEDURE TABLE; 
VAR TT :TEXT; 

NOM : STRING ; 

FLAG : BOOLEAN ; 

I, J : INTEGER; 
BEGIN 

NOM : = " ; 

WRITE ( ' NOM DU FICHIER DE SORTIE : (#8:) '); 
READLN < NOM ) ; 

IF NOM='' THEN NOM := '#&:'; 
REWRITE < TT , NOM > ; 
NP := NP « 3; 
CALCUL; 

FOR I := 1 TO MAX I ND DO 
IF TAB CI] . GENRE* 'C 

THEN P0SCI,1] := TABtl] .ARGUC2] 
ELSE BEGIN 

P0SCI,1I := 0; 
POSCI.23 := 
END; 

I := 1 ; FLAG := FALSE; 
REPEA'i 
XY<1) ; 

WRITELN <TT, ' M ' , ROUND (X« 12 . 321428) , 

' , ' , ROUND <Y» 13. 612565) ) ; 
FOR J := 2 TO MAXIND 
DO BEGIN 
XY<J) ; 

IF TAB t J] .GENRE O'N' 
THEN 

IF FLAG=FALSE 

THEN WRITELN < TT , 'D' , ROUND ( X « 12 . 321428 ) , 

' , ' , ROUND (Y« 13. 61 2565) ) 
ELSE BEGIN 

FLAG := FALSE; 

WRITELN < TT , ' M ' , ROUND C X« 12 . 321428 ) , 
' , ' , ROUND < Y» 13 . 612565 ) ) 

END 

ELSE FLAG := TRUE 

END; 

I := I + 1; 

UNTIL I>NP*1; 
NP := NP DIV 3; 
CLOSE < TT , LOCK ) ; 
WRITE<CHR(7) ,CHR<7) ) ; 
PAGE(OUTPUT) 
END; 

PROCEDURE LISTE; 
VAR I, J : INTEGER ; 
BEGIN 

GOTOXY<0,0> ; 
FOR I := 1 TO MAXIND 
DO BEGIN 

WRITE<I:2,' :',TABCIJ .GENRE:3); 
FOR J := 1 TO 5 DO 

WRITE ( ROUND (TAB C I ] . ARGU [J] ) :5) ; 
WRITELN 
END; 
EFF (MAXIND) 
END; 

PROCEDURE MODIF; 
VAR NUMERO: INTEGER; 

CAR , RE : CHAR; 

I : INTEGER; 

VAL :REAL; 
BEGIN 

EFF(21) ; 

WRITE ( ' INSTRUCTION A MODIFIER :'); 
READLN ( NUMERO ) ; 

IF (NUMER0<1) OR ( NUMER0> MAXIND ) 

THEN EXIT(MODIF) ; 
EFF(21) ; 

CAR :^ TAB [NUMERO] .GENRE; 
WRITE ( 'GENRE : ('.CAR,') '); 
READ(RE) ; 

IF NOT (E0LN( INPUT) ) 
THEN BEGIN 



READLN; 

TABCNUMERO] .GENRE := RE 
END 

ELSE TABCNUMERO] .GENRE := CAR; 
GOTOXYCO,23> ; 

WRITE('<CR> ACCEPTE,<ESC> MODIFIE ' ) ; 
FOR I : = 1 TO 5 
DO BEGIN 
EFF ( 21 > ; 

VAL := TABCNUMERO] .ARGUCI] ; 

WRITE ( ' VALEUR : (', ROUND (VAL) 

,') ' > ; READ < RE) ; 
IF EOLN(INPUT) 
THEN BEGIN 
READLN; 

TABCNUMERO-] .ARGUCI] := VAL 
END 

ELSE BEGIN 

GOTOXY(0,22> ; 

WRITE ( 'NOUVELLE VALEUR :'); 
READLN ( VAL ) ;EFF<22) ; 
TABCNUMERO] .ARGUCI] := VAL 
END 
END; 
EFF ( 21 ) 
END; 

PROCEDURE INSERT; 
VAR I, J, 2 : INTEGER ; 

CAR :CHAR; 
BEGIN 

G0TOXY(0,21> ; 

WRITE < ' NUMERO APRES LEQUEL ON INSERE :'); 
READLN < J ) ;EFF(21) ; 

WRITE< 'OPTION : <C>,<D>,<N> '); 
READ ( CAR > ; 
EFF<21) ; 

IF (J<1> OR <J>MAXIND) OR 

NOT (CAR IN ['C','D','N')> 
THEN EXIT ( INSERT ) ; 
FOR I := MAXIND DOWNTO J DO 

TABCI-13 := TABCIJ ; 
MAXIND MAXIND * 1; 

J := J * 1; 
G0T0XY(0,21> ; 
IF CAR='C 
THEN BEGIN 

WRITE CRAYON :'); 
READ ( TAB C J] .ARGUCI] >; 
EFF (21 > ; 

WRITE ( ' ANGLE DEP, ARRIVEE :'); 

READLN (TAB C J] .ARGUC2] ,TABCJ] . ARGU C3] ) ; 

EFFC21) ; 

WRITE < 'COORDONNEES DU CENTRE :'); 
READLN (TAB C J] .ARGUC4] ,TABCJ] .ARGUC5] ) ; 
TAB CJ] .GENRE := 'C';EFF(21>; 
END 
ELSE 

IF CAR = 'D' 
THEN BEGIN 

WRITE('X1,Y1,X2,Y2 :'); 

READLN (TAB C J] .ARGUCI] ,TABCJ] .ARGUC2) , 

TAB C J3 .ARGUC3] ,TABCJ] .ARGUC4] ) ; 
TAB C J] .ARGUC53 := 0; 
TABCJ]. GENRE : = ' D' ; EFF (21 ) 
END 

ELSE BEGIN 

TAB C J] . GENRE := ' N' ; 
FOR 2 := 1 TO 5 DO 
TAB C J] .ARGUC2] := O 

END 

END; 

PROCEDURE DELETE; 
VAR 1,3 : INTEGER; 
BEGIN 

G0T0XY(0,21) ; 

WRITE ( ' NUMERO A ENLEVER :'); 
READLN(J); 




Detruisez des disquettes 
avec vos logiciels ! 

En travaillant avec Magicalc sur une 
disquette de fichiers quasiment pleine 
que je n'avais pas encore sauvegar- 
dee (autant pour moi !), j'ai un beau 
jour decouvert que les deux tiers des 
fichiers avaient disparu. Aucun 
moyen de les recuperer avec un pro- 
gramme normal de "RECONS- 
TRUCT VTOC". Un second utilitaire 
m'a montre qu'un secteur du catalo- 
gue avait ete totalement mis a zero. 
J'ai reussi enfin a tout recupe 
grace a un programme genial, le 

T FCAT du 



in en discutant avec d'autres specia- 
listes, j'ai appris que ce probleme de 
remise a zero de secteur survenait 
parfois avec Visicalc, quand la dis- 
quette est pleine. D'au 
aussi deviennent dangen 
disquette est trop pleine. 
fiez-vous, et achetez Bag of Ti 

i - nrf 

En particulier, attention a Pri 
votre disquette est trop pleine ou, 
pire, si vous utilisez de gros fichiers 
sur disque dur. Je connais une so- 
ciete de conseil dont un client a eu 
gros fichier sur disque mis sens 
sus dessous par PFS. Et comme 
sauvegarde copiait fidelement la 
ne de la version originate 
te plus tard), il a fallu re- 

rnnsti 

unat 





Edition de formule en 



Dans certains cas, quand on essaye 
de mettre a jour avec /t. i 
mule dans un tableau Magicalc, 
la surprise de voir la valeur resultant 
de la formule apparaitre en lieu et 
place de la formule. C'est en particu- 
lier le cas si, avant de faire "/E", on 
commence a entrer un texte que Ton 
efface immediatement apres avec 
ESC ou DEL. Si Ton appuie alors 
par reflexe sur RETURN, la formule 
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EFF<21) ; 

IF (J<1> OR (J>MAXIND> 

THEN EXIT (DELETE) ; 
IF J = MAXIND 

THEN MAXIND := MAXIND - 1 
ELSE BEGIN 

FOR I := J TO MAXIND DO 

TAB CI] := TAB [1*1] ; 
MAXIND MAXIND -1 

END 

END; 

PROCEDURE SWAP J 

VAR DEP,ARR,I : INTEGER ; 

V :REAL; 
BEGIN 

EFF < 21 ) ; 

WRITELN ( ' <X>CHANGE' ) ; 

WRITE < ' NUMERO DE DEPART :'); 

READLN(DEP) ; 

IF DEP=0 THEN EXIT<SWAP>; 
EFF<22) ; 

WRITE < ' NUMERO D' ' ARRIVEE :'); 
READLN ( ARR) ; 
EFF(22> ;EFF(21>; 
FOR I := DEP TO ARR DO 
CASE TAB [I] .GENRE OF 
•D' : BEGIN 

V := TAB CI] .ARGUC3] ; 

TAB CI] . ARGU C3J TAB CI] . ARGU [1 ] ; 

TAB [ I ] .ARGUC11 := V; 

V TAB CI] . ARGU C4] ; 

TABID .ARGUC4] := TAB 1 1] . ARGU C2] ; 
TAB CI] .ARGUC2] := V 
END; 
' C ' : BEGIN 

V :» TAB CI] .ARGU C3] ; 

TABCU .ARGUC31 :» TAB C I] . ARGU C2] ; 
TAB CI] . ARGU [2] := V 
END 

END 

END; 



PROCEDURE EDIT; 
VAR CAR: CHAR; 
BEGIN 

CAR := 'T'; 
REPEAT 

IF CAR IN 

THEN LISTE; 
G0T0XY(0,22) ; 

WRITELN < ' <M>ODIF, <I>NSERT, <S>UPPR 



C'T','X*,'M','I','S','W'] 



, <W>ATANABE' ) ; 



WRITE <'<N>PTS ,<D>RAW , <X>CHANG , <F>IN :'); 
READ (KEYBOARD , CAR ) ; 
EFF(22) ;EFF<23) ; 
CASE CAR OF 

' N' :begin 

G0T0XY(0,21); 

WRITE( 'NOMBRE DE POINTS :'); 

READLN < NP) ; 

EFF (21 ) 
END; 
'X' :SWAP; 
'M' :MODIF; 
'I' : INSERT; 
'S' :DELETE; 
'D' : DRAW; 
'W' .-TABLE 
END 

UNTIL CAR='F' 
END; 

PROCEDURE FUSION; 



VAR N0M,N0N2 : STRING; 



: BOOLEAN; 
IFILE OF CLOUS; 
: INTEGER; 
: CHAR; 



;= TRUE 



FLAG 
Fl ,F2 
I, J 
CAR 
BEGIN 

WRITE ( ' NOM DU FICHIER DE SORTIE : ' ) ; 

READLN (NOM ) ; 

REWRITE (Fl , NOM) ; 

G0T0XY(0,23) ; 

WRITE('<CR> POUR ARRET'); 

GOTOXY(0,2) ; 

FLAG := FALSE; 

REPEAT 

WRITE ( ' NOM DU FICHIER A INCLURE :'); 
READLN (N0M2) ; 
IF N0M2O" 
THEN BEGIN 

IF FLAG=FALSE 
THEN FLAG 
ELSE BEGIN 
Fl*. GENRE 
FOR I := 1 TO 5 DO 
Fl-.ARGUCI] := O; 
PUT(Fl) 
END; 
LECTURE (N0M2) ; 
IF IORESULTOO 

THEN EXIT(FUSION) ; 
FOR I :« 1 TO MAXIND DO 
BEGIN 

Fl" := TAB CI); 
PUT(Fl) 
END 

END 

UNTIL N0M2 = "; 
CLOSE (Fl, LOCK) ; 

WRITECON LIT LE FICHIER ',NOM,' :'); 
READ(CAR) ; 
IF CAR='0' 

THEN LECTURE (NOM) 

END; 

BEGIN 

NP := NPDEF; 
MAXIND := 0; 
REPEAT 

PAGE(OUTPUT) ; 

WRITELN (''111,' PROGRAMME DE CLOUS'); 

WRITELN (" 111, ' <C> N . MONSARRAT ' ) ; 

G0T0XY(0,8); 

WRITELN ('OPTIONS :'); 

WRITELN; 

WRITELN('<N>OUVEAU DESSIN'); 
WRITELN( ' <E>DITION DU DESSIN ACTUEL'); 
WRITELN ( ' <L>OAD' ) ; 
WRITELNC<S>AVE'); 

WRITELN ('<M>ELANGE DE FICHIERS'); 
WRITELN ( ' <F>IN' > ; 
READ (OPTION) ; 
PAGE(OUTPUT) ; 
CASE OPTION OF 

'E' :EDIT; 

'N' :NOUVEAU; 

'L' :RAPPEL; 

'S' :ECRIT; 

' M ' : FUSION 
END 

UNTIL OPTION = 
PAGE (OUTPUT) 
END. 



suite de la page 28 

EDIT traite exclusivement les fichiers 
TEXT. Tout fichier BASIC (de nom 
NF par exemple) est done recopie 
dans un fichier TEXT (de nom 
TEXT<NF>) sur lequel s'effectue 
l'edition. Tout fichier TEXT est traite 
directement. 

En fin d'edition : 

- la commande F sans paramecre 
entraine la mise a jour du fichier 
initial ; 



— la commande F comportant un 
nom de fichier cree un fichier du 
nom donne, de meme type que le 
fichier initial, ce dernier etant in- 
change. 



Modification dc l'editeur 

Pour que l'editeur sache transformer 
un fichier TEXT en un programme 
BASIC, il faut lui apporter un certain 
nombre de modifications : 



- ajouter les lignes 106, 5610 a 
5640 et 9905 ; 

- modifier les lignes 5510 a 5600 et 
9900. 

Sur la disquecte d'accompagnement, 
le fichier PATCH. EDIT contient ces 
modifications. La mise a jour du fi- 
chier PROGR.EDIT peut alors se 
faire par : 

LOAD PROGR.EDIT 
EXEC PATCH. EDIT 
SAVE PROGR.EDIT 
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Edition des fichiers BASIC 

Gerard Hisleur 



Le programme INIT.EDIT, associe a 
quelques modifications de mon edi- 
teur-compositeur de texte publie 
dans Ie Pom's 9, permet un traite- 
ment nettement ameliore des pro- 
grammes BASIC : leur transformation 
en un fichier TEXT, sur lequel peut 
s'effectuer 1'edition, ainsi que la 
transformation inverse en programme 
BASIC sont rendues entierement au- 
tomatiques. 



La mise en route est realisee par : 

BRUN PROGR48K 
RUN INIT.EDIT 

Le fichier EDIT contient ces deux 
commandes et le lancement peut 
done se faire par EXEC EDIT. 

La premiere information a fournir au 
programme INIT.EDIT est le nom du 



Programme INIT.EDIT 

10 HOME :N = 105: DIM AS(N):NDS = ",D1" 

20 AS = "300:38 48 84 FD AO 00 91 FE E6 FE DO 
02 E6 FF 68 A4 FD 60 A9 AO 60 N D823G 
": FOR 1=1 TO LEN (AS): POKE 511 ♦ 
I. ASC < MIDS (AS, 1,1)) - 128: NEXT : 
POKE 72,0: CALL - 144 

30 AS = ■"•: FOR 1=1 TO 19: AS = AS + " " : NE 
XT : FOR I = N TO 1 STEP - 1:AS(I) = 
AS ♦ AS: NEXT :AS(0> = AS + "":A = PE 
EK (107) * PEEK (108) « 256 * 8: POKE 
254, PEEK (A)': POKE 255, PEEK (A - 1) 

40 INVERSE : PRINT "NOM DU FICHIER A EDITER 

:";: normal : & input ns: if len (ns 

) = THEN 40 

50 N1S = NS: IF LEN (NS) < 4 THEN 70 

60 IF MIDS (NS, LEN (NS) - 2,2) = ",D" THEN 
NDS = RIGHTS (NS,3):N1S = LEFTS (NS 
, LEN (NS) - 3) 

70 N2S = •—: FOR I = 1 TO LEN (N1S):N2S = N2 
S * CHRS ( ASC ( MIDS (N1S,I,D) ♦ 12 
8): NEXT : FOR I = LEN (N2S) - 1 TO 3 
0:N2S = N2S + CHRS (160): NEXT 

80 DS = CHRS (4): PRINT DS"NOMON 

CIO": POKE 54,0: POKE 55,3: POKE 56,18 
: POKE 57,3: CALL 1002: PRINT DS"CATAL 
OG,"NDS: PRINT DS"PR#0": PRINT DS"IN#0 
": IF N1S < > ••?" THEN 110 

90 J = 0: FOR 1=1 TO N: IF MIDS (AS(I>,2,1 
) < > •• •• THEN PRINT LEFTS (AS(I),3 
); MIDS (AS(I),8,17); :J = J + 1 : IF J 
= 42 THEN GET CS:J = 

100 NEXT : PRINT : PRINT : GOTO 20 

110 FOR I = 1 TO N: IF MIDS (AS(I),8,30) = 
N2S THEN 170 

120 NEXT 

130 NW = l: INVERSE : PRINT "NOUVEAU FICHIER" 
: NORMAL 

140 PRINT : INVERSE : PRINT "T" ; : NORMAL : P 
RINT "(TEXTE) OU ";: INVERSE : PRINT " 
A";: NORMAL : PRINT "(BASIC APPLESOFT) 
?"; : GET TS: PRINT TS 

150 IF TS < > "T" AND TS < > "A" THEN 140 

160 GOTO 210 

170 TS = CHRS ( ASC ( MIDS (AS(I),2,1)> - 12 

8): PRINT "TYPE ";: INVERSE : PRINT TS 

; : NORMAL : PRINT " "; 
180 IF TS < > "T" AND TS < > "A" THEN INV 

ERSE : PRINT "ERREUR": NORMAL : END 
190 PRINT : PRINT : IF LEFTS (AS(I),1) = c 

HRS (170) THEN INVERSE : PRINT "FICHI 

ER PROTEGE": NORMAL : PRINT 
200 NW = 

210 LS = "TEXT<" * N1S - ">":L1S = LS ♦ NDS: 

ONERR GOTO 230 
220 PRINT DS; "DELETE CHAIN . EDIT, Dl " 
230 ONERR GOTO 250 



fichier a editer (eventuellement suivi 
de ",Di"). Le nom "?" provoque I'af- 
fichage du catalogue de la disquerte. 

Lorsque le fichier donne n'existe pas 
sur le support, INIT.EDIT demande 
son type afin de le creer. Tout type 
autre que A (programme BASIC Ap- 
plesoft) ou T (fichier TEXT) est re- 
jete. 

suite page 26 



240 IF TS = "A" THEN PRINT DS ; "DELETE" ; LIS 
250 POKE 216,0: PRINT DS;"OPEN CHAIN . EDIT, Dl 

260 PRINT DS; "WRITE CHAIN. EDIT" 

270 IF TS = "T" THEN LIS = N1S ♦ NDS: GOTO 3 
30 

280 IF NW = 1 THEN 330 
290 PRINT "LOAD" ; NS ; NDS 

300 GS = CHRS (34): OPS = "? DS" * GS * "OPEN 
" ♦ LIS ♦ GS:WRS = "? DS" * GS * "WRIT 
E" + LS ♦ GS:CLS = "? DS" ♦ GS ♦ "CLOS 
E" ♦ LS + GS 

310 PRINT "63999 DS=CHRS(4) : " + OPS * ":" * 
WRS ♦ ♦ "POKE 33, 30: LIST ,63998:" 

♦ CLS ♦ ": TEXT: END" 

320 PRINT "RUN 63999" 

330 PRINT "RUN PROGR . EDIT , Dl " : PRINT LIS: PR 
INT DS; "CLOSE CHAIN. EDIT": PRINT DS;"E 
XEC CHAIN. EDIT" 

Programme PATCH. EDIT 

106 VTAB 22: INVERSE : PRINT "NOM DU FICHIER 

A EDITER?" ; : NORMAL : PRINT NAS 
5510 IB = 0: IF LEN (NAS) > 6 THEN IF LEFT 

S (NAS, 5) = "TEXT<" AND RIGHTS (NAS.l 

) = ••>" THEN IB = l:NAS = MIDS (NAS, 6 

, LEN (NAS) - 6) 
5520 NBS = NAS: IF LEN (AS) > 1 THEN NAS = 

RIGHTS (AS, LEN (AS) - 1) 
5530 ONERR GOTO 5550 
5540 PRINT DS; "DELETE TEMPO"; NDS 
5550 POKE 216,0: PRINT DS;"OPEN TEMPO" 
5560 IS = 0: PRINT DS; "WRITE TEMPO": IF IB > 

THEN PRINT "NEW" 
5570 IF TN(IS) = IMAX THEN 5590 

5580 PRINT SOURCES(TNdS) ) :IS = TN(IS): GOTO 
5570 

5590 IF IB > THEN 5630 

5600 PRINT DS; "CLOSE TEMPO": ONERR GOTO 562 
O 

5610 PRINT DS; "DELETE"; NAS 

5620 POKE 216,0: PRINT DS; "RENAME TEMPO, " ; NA 
S: END 

5630 IF NAS = NBS THEN PRINT "DELETE" ; NAS 
5640 PRINT "SAVE"; NAS: PRINT "DELETE TEXT<"; 

NBS;">": PRINT "DELETE TEMPO": PRINT D 
3; "CLOSE TEMPO": PRINT DS;"EXEC TEMPO" 
: END 

9900 PRINT : PRINT TAB ( 6); "FIN DE L'EDITIO 
N": PRINT : INVERSE : PRINT "F" ; : NORM 
AL : PRINT TAB ( 6) ; "UTILISATION DU FI 
CHIER INITIAL": PRINT TAB ( 6); "POUR L 
A SAUVEGARDE." 

9905 PRINT : INVERSE : PRINT "F NF" ; : NORMAL 
: PRINT TAB( 6); "UTILISATION DU FICH 
IER DE NOM" : PRINT TAB ( 6);"NF POUR 
LA SAUVEGARDE.": GOTO 200 
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CX Systeme est un ensemble de pro- 
grammes concu pour repondre a 
tous les problemes (ou presque) que 
peuvent rencontrer une PME ou une 
PMI dans leur gestion. II se presente 
sous forme d'une famille de logiciels 
parfaitement modulaires : le premier, 
CX Base 100, permet de gerer un fi- 
chier (creation, mise a jour, classe- 
ment, calculs,...) et d'imprimer des 
etats et des etiquettes; la gestion mul- 
tifichiers. elle, est permise par la ver- 
sion avancee CX Base 200, qui re- 
prend toutes les fonctions de CX 
Base 100 pour le travail sur deux fi- 
chiers simultanement et offre des 
possibilites superieures dans le traite- 
ment et le stockage des donnees. Un 
complement de programme permet 
de passer de CX Base 100 a CX 
Base 200. La famille ne serait pas 
complete sans CX Texte, un pro- 
gramme de traitement de texte ac- 
cessible a partir de CX Base 200. 

Pour ce banc d'essai, nous avons pu 
disposer de la version la plus evoluee 
du systeme, CX Base 200 + CX 
Texte. Nous 1' avons teste sur un 
Apple lie (64 K sont necessaires pour 
le fonctionnement du programme) 
equipe de deux lecteurs de disquet- 
tes. CX Base 200 peut gerer jusqu'a 
quatre lecteurs de disquettes, soit 
quatre fichiers simultanement. Pour 
de plus grandes applications, il peut 
travailler avec un lecteur de disquet- 
tes (pour le chargement du pro- 
gramme et eventuellement la gestion 
d'un fichier) et tout support de me- 
moire grande capacite compatible 
DOS 3.3 (disque dur en particulier). 

CX Base 200 est l'heritier direct de 
CX Multigestion, dont . on trouvera 
une analyse dans le Pom's 5. II en a 
garde les qualites, mais aussi certains 
defauts. Heureusement, des amelio- 
rations notables viennent pallier en 
partie ces faiblesses. 

CX Texte est intimement lie a CX 
Base 200 : on n'y accede qu'apres 
avoir charge le programme CX Base. 
Le traitement de texte edite des 
textes qui sont considered comme 
autant de dossiers et done traites 
comme tels par CX Base. L'avantage 
de ce programme est de permettre 
d'y inserer, conditionnellement si on 
le desire, des donnees contenues 
dans les dossiers geres par CX Base. 



CX Base 200 : l'heritier 
de CX Multigestion 

Heritier de ses qualites... 

CX Base 200, tout comme CX Multi- 
gestion, est entierement ecrit en as- 



CX Systeme a Fessai 

Frangois Renault 



sembleur et reside, pour la plus 
grande partie, en memoire centrale. 
Cela lui confere une grande rapidite 
d'execution. Les temps d'acces a la 
disquette et de recherche d'un dos- 
sier sont tres acceptables et la duree 
des classements est a peine supe- 
rieure. II en resulte un confort d' utili- 
sation non negligeable. 



Un dossier peut contenir jusqu'a 
1600 caracteres repartis en 55 rubri- 
ques et 47 lignes de notes. Dans ce 
cas extreme, on ne pourra enregistrer 
que 200 dossiers sur une disquette. 
Pour des dossiers moins importants. 
on pourra en stacker jusqu'a 2000 
sur une meme disquette (la longueur 
des dossiers est variable, de maniere 
a optimiser 1' occupation de la dis- 
quette). A ce propos, un utilitaire 
permet d'evaluer la place encore dis- 
ponible sur une disquette en nombre 
de dossiers en se fondant sur la taille 
moyenne des dossiers deja existants. 

Une dominante de l'emploi de CX 
Base est la souplesse. II est possible 
d'utiliser 4 types de formats de varia- 
bles : 

• numerique, qui accepte les nom- 
bres decimaux selon le mode fran- 
cos (avec une virgule) ou anglo- 
saxon (avec un point) ; 

• alphanumerique ; 

• date, qui reconnatt une date sous 
les formes les plus variees (13 
NOVEMBRE 1983, 13 NOV 83. 
13 N 83, 13 N, 13/11/83, 13 11. 
etc.) et la verifie (il sait ce qu'est 
une annee bissextile) ; 

• stock, qui est en fait un format de 
type numerique ne conservant 
que des cumuls (comme le fait la 
memoire additive d'une calcu- 
lette). 

Cette souplesse se retrouve dans les 
differents modes de selection. On 
peut effectuer celles-ci par egalite. 
difference, en indiquant des limites 
ou encore par analogie ou mot-cle. 
Ce dernier mode permet de recher- 
cher dans une rubrique ou dans 1' en- 
semble du dossier une suite de ca- 
racteres. Si cette chaine contient plus 
de 4 caracteres, la recherche s'effec- 
tuera par analogie, e'est-a-dire que 
sera selectionnee la rubrique conte- 
nant une suite ressemblant a la suite 
donnee. Cette possibility est particu- 
lierement pratique quand on recher- 



che un nom dont l'orthographe est 
mal connue. Un autre moyen nous 
est propose pour resoudre ce genre 
de problemes : si I on ignore la na- 
ture d'un caractere dans un nom, il 
est possible de le remplacer par un 
blanc. Tout caractere peut alors rem- 
placer ce blanc. II est possible de re- 
tenir jusqu'a 12 criteres de selection 
simultanement. Si cela ne suffit pas. 
il est possible de memoriser le resul- 
tat de cette premiere selection pour y 
effectuer une seconde selection. 
Cette operation peut etre repetee au- 
tant de fois que voulu mais. dans la 
pratique, je doute que cela arrive fre- 
quemment. 

Les operations de selection et de 
classement font partie des traite- 
ments. II est possible d'etablir des 
dossiers contenant des instructions 
pour des traitements a operer sur 
1' ensemble du fichier gestion. Ces 
dossiers sont geres exactement de la 
meme maniere que les dossiers ges- 
tion ou les dossiers textes, dont nous 
parlerons plus loin. Cette unicite 
dans le traitement des fichiers rend 
des services appreciates a l'usage. 

Signalons pour memoire 1' existence 
de fiches annexes, qui permettent de 
relier a un dossier principal un ou 
plusieurs dossiers appartenant a un 
autre fichier. Par exemple, on peut 
definir un dossier principal contenant 
les donnees d'un article et des fiches 
annexes recensant les mouvements 
correspondant a cet article (achat, 
vente, combien, a qui, a quel 
prix,...). 

Enfin, il existe une option de blo- 
cage, qui permet d'interdire certaines 
fonctions comme la creation d'un 
nouveau dossier ou la modification 
d'anciens dossiers a qui ne connait 
pas le code defini lors du blocage par 
i'utilisateur. II est aussi possible d'uti- 
liser cette instruction sans utiliser de 
code, ce qui permet de se proteger 
des fausses manoeuvres. 



... mais aussi de certains de 
ses defauts 

Une grande partie du travail sur CX 
Base consiste a rentrer des donnees 
dans des rubriques placees les unes 
en-dessous des autres. On passe de 
l'une a la suivante en tapant sur RE- 
TURN. Par contre, le retour a la ru- 
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brique precedente est impossible. 
Pour revenir en arriere. il faut 
d'abord remonter tout en haut de la 
fiche courante puis redescendre. par 
un nombre approprie de RETURNs. 
a la rubrique visee. Ce manque de 
souplesse est d'autant plus contrai- 
gnant que Ton est souvent appele a 
remonter d'une rubrique ou plus, no- 
tamment a la suite d'erreurs de rubri- 
ques ou de frappe toujours possibles 
lorsque Ton enregistre beaucoup de 
fiches d'affilee (travail fastidieux s'il 
en est, meme si des procedures d'en- 
registrement rapide nous sont offertes 
par le logiciel). De plus, si Ton fait 
une erreur dans une rubrique definie 
selon le format "Date" (une date im- 
possible, par exemple). le curseur 
passe a la rubrique suivante au lieu 
de nous ramener au debut de la ru- 
brique "Date", comme on aurait pu 
s'y attendre. Cette incoherence, ajou- 
tee a la non-possibilite de remonter 
d'une rubrique en arriere, est surpre- 
nante dans un programme qui par 
ailleurs possede des qualites indenia- 
bles. 

Nous avons ete aussi surpris par les 
faiblesses dans la visualisation du re- 
sultat d'un traitement. Quand on ef- 
fectue un traitement (classement, se- 
lection), on peut definir jusqu'a 6 
rubriques qui seront affichees lors de 
la visualisation a l'ecran du resultat. 
Cet affichage peut se derouler soit 
d une traite (defilement des rubriques 
selectionnees). soit dossier par dos- 
sier (les seules rubriques du dossier 
courant sont affichees; celles du dos- 
sier suivant n'apparaltront qu'apres 
enfoncement de la touche RETURN). 
Dans ce dernier cas. il est possible 
d'acceder au dossier courant par sim- 
ple action sur la touche ESC. Une 
lecture de la fiche entiere est alors 
possible, sans etre limitee aux 6 ru- 
briques choisies lors de la definition 
du traitement. Malheureusement, et 
cela apparait ires vite genant, il n'est 
pas possible de revenir a l'endroit ou 
Ton avait interrompu la visualisation 
pas a pas du resultat du traitement. 
Toute sortie de la visualisation pas a 
pas nous oblige a la reprendre 
depuis le debut. 

D'autre part, l'affichage de 6 rubri- 
ques impose de limiter a 12 caracte- 
res les zones d'ecran dans lesquelles 
le contenu de chacune des rubriques 
apparait. Quand une rubrique de- 
passe 12 caracteres. elle est tron- 
quee, mais aucun indicateur de de- 
passement ne vient nous prevenir de 
cet etat de fait, ce qui n'est pas sans 
poser quelques problemes dans le 
cas de noms propres. pour lesquels il 
est souvent difficile d'etablir s'ils sont 
intacts ou non. 

II est possible de definir jusqu'a 18 
formules de calcul pour un dossier 



de gestion. Ces calculs portent sur les 
rubriques numeriques du dossier et 
sont effectues a l'initiative de l'utilisa- 
teur. La presence de telles possibilities 
est normale dans un logiciel de ges- 
tion de base de donnees. Le pro- 
bleme, dans CX Base, est la faiblesse 
des calculs. En effet, les formules, 
d'une longueur maximum de 25 ca- 
racteres, n'admettent qu'un niveau 
de parentheses et ne respectent pas 
I'ordre de priorite des operations. Les 
formules sont executees de la gauche 
vers la droite. operation apres opera- 
tion. 

Cela signifie que "A=B+C/100" est 
equivalent a "A=(B+C)/100" et non 
a "A=B+(C/100)" comme l'exigerait 
I'ordre classique de priorite des ope- 
rations. L'absence de priorite dans 
les operations et l'impossibilite d'im- 
briquer des parentheses limitent 
considerablement les possibilites de 
calcul. D'autre part, tout comme 
dans CX Multigestion, tous les nom- 
bres sont limites a deux decimales, 
en arrondissant au plus pres. Pour 
des calculs faisant appel a une plus 
grande precision, il faut representer 
les nombres sous forme de fraction 
de dix, cent ou mille (12.345 s'ecrira 
123.45 / 10), ce qui reduit encore un 
nombre de caracteres souvent trop 
juste (la simple variable designant 
une rubrique consomme deja deux 
caracteres). 

Dans son article sur CX Multigestion, 
Herve Thiriez signalait que la nou- 
velle version de CX permettrait de 
memoriser les parametres de reglage 
sur la disquette fichier et non sur la 
disquette programme. Ces parame- 
tres definissent le format, les caracte- 
res, le nombre de lignes par page et 
autres donnees relatives a I'impri- 
mante, ainsi que les diverses possibi- 
lites de branchement des peripheri- 
ques (les lecteurs de disquettes ou 
rimprimante). Apparemment, cela 
n'a pas encore ete fait, car ces para- 
metres sont toujours stockes sur la 
disquette programme. 11 est done im- 
possible de proteger cette disquette 
contre l'ecriture et la disquette, plus 
souvent sollicitee, connait une usure 
plus rapide (la disquette programme 
est protegee contre la copie et une 
disquette de sauvegarde vous cou- 
tera 250 F). 

Les "plus" de 
CX Base 200 

En bonne justice, il faut reconnaitre 
que les auteurs de CX Base ont 
neanmoins ameliore les possibilites 
de reglage : le programme permet de 
memoriser deux jeux de parametres. 
II est maintenant possible d'utiliser al- 
ternativement deux imprimantes sans 
modifier aucun des parametres. 



Une serie de petites ameliorations 
aux fonctions de recherche et de se- 
lection de CX Multigestion ont ete 
apportees dans CX Base. II est main- 
tenant possible de rechercher un 
dossier en n'indiquant qu'une seule 
des deux cles d'acces et'ou en effec- 
tuant, par une cle d'acces, la recher- 
che par analogie decrite plus haut. 
D'autre part, il est possible de classer 
en une seule operation plus de dos- 
siers qu'avant. On passe de 500 
fiches sur 3 caracteres (CX Multiges- 
tion) a 750 (CX Base), toujours sur 3 
caracteres. 

Mais ce qui nous a particulierement 
seduit dans CX Base 200, e'est la 
possibility offerte par le logiciel de 
programmer des choix. CX nous au- 
torise en effet a ecrire des program- 
mes d'au plus 17 pas (cela suffit lar- 
gement) a partir des operations 
elementaires proposees par le menu 
Gestion. Un programme est une 
combinaison de "Recherche", "Enre- 
gistrement", "Calculs", "Acces dos- 
sier", etc, qui permet d'effectuer des 
traitements complexes qu'il serait fas- 
tidieux de realiser soi-meme, instruc- 
tion par instruction. La programma- 
tion est simple a faire et les 
programmes, ecrits en general pour 
la gestion d'un fichier particulier. sont 
memorises sur la disquette contenant 
le fichier concerne. Des que le fichier 
est en traitement. les programmes 
sont disponibles a partir du menu de 
gestion. On peut disposer de 6 pro- 
grammes simultanement. 

Une autre originalite de CX Base 
nous a beaucoup plu, en ce sens 
qu'elle permet d' adapter le logiciel a 
l'utilisateur et non 1' inverse : les tou- 
ches de controle permettant de se 
deplacer dans CX sont aisement mo- 
difiables. II suffit pour cela d'indiquer 
pour chaque fonction la valeur ASCII 
de la nouvelle touche. Cette modifi- 
cation etant effectuee dans le dossier 
reglages qui, je le rappelle, est enre- 
gistre sur la disquette programme, les 
nouvelles touches de fonction entrent 
en vigueur a chaque utilisation du lo- 
giciel. Chaque utilisateur peut ainsi 
definir son propre jeu de comman- 
des. 

Ce souci de flexibilite et de souplesse 
est tout a l'honneur des concepteurs. 



Le complement : 
CX Texte 

CX Texte est un logiciel de traite- 
ment de textes tres honnete qui a la 
particularite de gerer ses textes 
comme des dossiers. II utilise pour 
cela les memes menus que CX Base 
et permet de definir des modeles de 
textes a l'instar des modeles de dos- 
sier de CX Base. Tous ces dossiers 
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textes peuvent etre relies les uns aux 
autres par des chainages ou des in- 
sertions, dont la succession peut etre 
programmed et memorisee. Evidem- 
ment, CX Texte autorise la gestion 
totale de la mise en page et de la 
presentation (justification a droite) 
pour la sortie des textes sur impri- 
mante. 

Le principal interet de CX Texte est 
sa liaison avec CX Base. En effet, les 
textes de CX Texte peuvent etre 
completes ou modifies par le contenu 
de rubriques de dossiers geres par 
CX Base. II est possible d'inserer 
dans le texte des rubriques. des to- 
taux ou des dates trouves dans les 
dossiers de gestion. Chaque modele 
de lettre possede sur une page de 
garde les references des rubriques 
qu'il doit reproduire dans le corps du 
texte. Le logiciel va meme plus loin 
en proposant la modification du de- 
roulement du texte en fonction du 
contenu de rubriques d'un dossier de 
gestion (des parties entieres du texte 
apparaitront ou non selon le resultat 
d'un test sur des rubriques). L'edition 
de lettres personnalisees, le tirage 
d'un mailing, I'etablissement de fac- 
tures ou de fiches de paie ou meme 



la redaction d'un rapport sont ainsi 
facilement realisables. 

La documentation 

La documentation se presente sous 
la forme d'un petit classeur. Sa re- 
daction est claire et l'approche peda- 
gogique : on accede a la maitrise de 
CX Base en suivant des legons por- 
tant chacune sur un theme precis. Ce 
"cours" d' utilisation est suivi d'un re- 
pertoire alphabetique detaillant cha- 
que commande. La denomination 
des commandes etant suffisamment 
evocante, il suffit de consulter la liste 
des commandes pour trouver celle 
qui conviendra au traitement recher- 
che. On trouve en annexe un recen- 
sement de'tous les messages d'er- 
reurs possibles avec. pour chacun 
d'entre eux. la conduite a tenir en un 
tel cas. La documentation de CX 
Texte se presente sous la meme 
forme, avec en plus une fiche aide- 
memoire regroupant tous les codes 
utilises dans le traitement de texte. 

Conclusion 

Malgre quelques defauts surprenants 
dans ce logiciel par ailleurs tres per- 



formant. CX Systeme nous a laisse 
une impression tres favorable. Apres 
une periode d'apprentissage de l'or- 
dre de la journee (le temps de pren- 
dre connaissance de toutes les possi- 
bilites de ce programme !), toute 
personne. meme non informati- 
cienne. pourra utiliser aisement une 
grande partie des capacites du logi- 
ciel. La rapidite et la securite de 
fonctionnement. alliees a la possibility 
d'adapter au systeme des supports 
magnetiques de grande capacite, en 
font un outil de travail privilegie pour 
les PME ou PM1, qui constituent en 
fait le marche vise par la societe 
conceptrice de CX Systeme. 

Adresse : Controle X - Tour Maine 
Montparnasse - 33 avenue de Maine 
- 75755 Paris. 

De nombreuses boutiques micro ven- 
dent aussi les programmes de 
Controle X. 

Prix hors taxes 

CX Base 100 : 1930 F. 
CX Base 200 : 2770 F. 
CX Texte : 1000 F. 
CX 200 + Texte : 3360 F. 
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Suppression de fin de programme 



Gerard Michel 



Dans le Pom's 8, Herve Thiriez vous 
donnait quelques indications sur la 
facon d'accelerer vos programmes 
BASIC et. en particulier. sur le type 
de structure a adopter. C'est ainsi 
qu'il vous recommandait de placer 
en fin de programme toutes les ope- 
rations correspondant a la phase 
d'initialisation des traitements (lecture 
de tables de references, de tableaux 
de DATA, entree de parametres...). 

II est possible de tirer un autre parti 
de cette structure de programme, au 
niveau de 1' utilisation de la place me- 
moire et c'est ce que cet article se 
propose de vous offrir. 

En effet. par definition, les travaux 
d'initialisation s'effectuent generale- 
ment une et une seule fois au debut 
du programme. Compte tenu de la 
taille de la memoire centrale de 1' Ap- 
ple, il peut done s'averer utile de re- 
cuperer la place occupee par les ins- 
tructions de cette initialisation qui 
empietent ensuite sans raison sur la 
capacite disponible pour les autres 
traitements. 

Pour ce faire. il suffit de deplacer la 
fin du programme pour la mettre 
juste apres la derniere instruction 
"utile", de modifier les differents 
pointeurs lies aux variables creees au 
cours de I' initialisation et de deplacer 
egalement en consequence les varia- 
bles ou descriptifs de variables 
concernes. Cet ensemble de manipu- 
lations est assure par la routine en 
assembleur listee plus loin. 

Avant d'apporter quelques precisions 
sur cette routine, examinons un ins- 
tant le programme de demonstration 
donne ci-apres qui nous eclairera sur 
son mode d'emploi. 

La phase d'initialisation debute a la 
ligne 1000 et c'est par elle que Ton 
commence l execution. apres charge- 
ment de la routine MOVE. La ligne 
100 permet de transmettre a cette 
derniere le numero de la derniere 
ligne que Ton desire conserver. 1030 
en l'occurence. A Tissue du CALL 
768. les lignes 1040 a 1080 auront 
disparu. 



II est necessaire de faire ici une dis- 
tinction en ce qui concerne les DATA 
entre les donnees numeriques et les 
donnees alphanumeriques. Pour une 
variable ou un tableau numerique. 
Applesoft memorise le nom. l'indice 
si besoin est, et la valeur. Toutes les 
informations utiles se trouvent done 
reunies dans la zone de stockage des 
variables ou des tableaux. Des qu'il 
s'agit d'alphanumerique. en revan- 
che, ce n'est plus la valeur qui est 
memorisee mais l'adresse de cette 
valeur (chaine de caracteres corres- 
pondant a la variable ou a l'element 
du tableau concerne). Pour une don- 
nee lue en DATA, cette adresse se 
trouve dans la zone du programme, 
exactement la ou elle apparait dans 
la ligne de DATA, et non dans la 
zone de stockage des chatnes de ca- 
racteres. Vous pouvez done toujours 
supprimer une ligne de DATA nume- 
riques apres lecture sans perte d'in- 
formation. mais il n'en va pas de 
meme pour les DATA alphanumeri- 
ques (c'est pourquoi, dans notre 
exemple. nous conservons les lignes 
1020 et 1030). 

En fait, si les variables conservent 
toujours la meme valeur. vous pou- 
vez laisser les choses en l'etat car les 
chaines ne prennent pas plus de 
place dans la zone-programme 
qu'ailleurs. Si par contre elles sont 
appelees a evoluer au cours du pro- 
gramme, il vaut mieux les transferer 
dans la zone des chaines ou elles 
pourront etre prises en charge par les 
processus de "garbage". II suffit pour 
cela de rajouter dans la phase d'ini- 
tialisation une instruction du type 
A$= A$+ "" (ou A$ est une varia- 
ble qui a ete lue en DATA) et vous 
pourrez ensuite supprimer la ligne de 
DATA comme nous l'avons fait pour 
la ligne 1035. 



Adresses 

Quelques remarques pour finir sur la 
routine en assembleur. Les adresses 
utilisees sont : 

$67-$68 : adresse de debut du pro- 
gramme, copiee pour manipulation 
en $F9-$FA 



$6-$7 : stockage du numero de la 
derniere ligne a conserver 

$8-$9 : stockage de l'adresse dans la 
zone-programme de la premiere ligne 
a supprimer 

$18-$19 : memorise la nouvelle 
adresse de la fin du programme 
(LOMEM) 

$69-$6A : LOMEM 

$6B-$6C : adresse de la fin de la 
zone des variables simples (ARY- 
TAB) 

$6D-$6E : adresse de la fin de la 
zone des tableaux (STREND) 

$AF-$B0 : adresse de la fin du pro- 
gramme. 



Programme 

- Lignes 6 a 23 : recherche du nu- 
mero de la derniere ligne a conserver 
dans le programme. 

- Lignes 24 a 29 : stockage de 
l'adresse de la premiere ligne a sup- 
primer. 

- Lignes 30 a 34 : marque la nou- 
velle fin du programme (00). 

- Lignes 35 a 43 : stockage provi- 
soire du nouveau LOMEM. 

- Lignes 44 a 46 ; displacement des 
zones des variables simples et des ta- 
bleaux de 1'ancien au nouveau 
LOMEM. 

- Lignes 47 a 52 : mise a jour des 
adresses pour le deplacement ci- 
dessus. 

- Lignes 53 a 58 : test pour savoir si 
Ton est arrive a la fin de la zone des 
variables simples. 

- Lignes 59 a 62 : si oui. mise a jour 
de la nouvelle valeur de ARYTAB. 

- Lignes 63 a 68 : test pour savoir si 
Ton est arrive a la fin de la zone des 
tableaux. 

- Lignes 69 a 78 : si oui. le decalage 
est termine et on met a jour 
LOMEM, le pointeur de fin du pro- 
gramme et STREND. 
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Programme MOVE. DEMO 

1 REM DEMONSTRATION DE LA 

2 REM SUPPRESSION D'UNE FIN 

3 REM DE PROGRAMME APPLESOFT 

4 REM = = = = a a = = = = = = a = = = = = 3 = s s 

10 DS = CHRS (4): PRINT DS"BLOAD MOVE.O 

BJ": GOTO 1000 
100 HB = INT (1030 / 256) : LB = 1030 - 2 

56 * HB: POKE 6, LB: POKE 7,HB: CA 

LL 768 

110 FOR I ' 1 TO 20: PRINT ZS ( I ) : NEXT 
: GET ZS 

120 FOR I = 1 TO 10: PRINT IS<I>: NEXT 

: get zs 

130 FOR I = 1 TO 20: PRINT ZZ(I>: NEXT 
: GET ZS 

140 FOR I = 1 TO 200: PRINT Z(I>: NEXT 

: PRINT : GET ZS 
150 PRINT AS: PRINT BS: PRINT US<1>: PR 

INT US<2>: PRINT AA: PRINT : GET 

ZS 

160 FOR I = 1 TO 20: PRINT Z<I> * ZZ ( I > 

: NEXT : END 
1000 DIM ZZC20) ,ZS(20) : FOR I = 1 TO 20 

: READ ZS<I> : NEXT 



1020 DATA TEXTE 1 , TEXTE 2, TEXTE 3, TEXT 
E 4, TEXTE 5, TEXTE 6, TEXTE 7, TEXTE 
8, TEXTE 9, TEXTE 10 

1030 DATA TEXTE1 1 , TEXTE12 , TEXTE13 , TEX 
TE14,TEXTE15,TEXTE16,TEXTE17,TEXT 
E18 , TEXTE19, TEXTE 20 

1035 READ AS: READ BS:AS ■ AS + "":BS = 

BS + "••: READ US(1>: READ US<2): 
US(1> = US<1) + " AJ0UT":US<2> = 
US<2> ♦ " AJOUT": DATA TEST AS,T 
EST BS, TEST US(1>,TEST US(2) 

1036 PRINT : INPUT "VARIABLE AAS ";AAS: 

INPUT "VARIABLE BBS ";BBS: PRINT 
: INPUT "VARIABLE AA " ; AA : PRINT 

1040 FOR I = 1 TO 10: PRINT "INIT."I;: 
INPUT IS (I): NEXT : PRINT : FOR I 
= 1 TO 20: READ ZZ(I): NEXT 
1050 DIM ZC200) 

1060 FOR I = 1 TO 10: FOR J = 1 TO 20 :Z 
(J ♦ 20 • (I - 1 ) ) = ZZ(J) » I • 
I: NEXT : NEXT 

1070 FOR I = 1 TO 200: PRINT Z(I>: NEXT 
: GOTO 100 

1080 DATA 1,2,3,4,5,6,7,8,9,10,11,12,1 
3,14,15,16,17,18,19,20 
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Aide au graphique HGR 

J.-F. Groussin 



Ce programme est une application 
simple du mode HGR repondant a 
plusieurs objectifs : 

• mise en oeuvre de graphiques 
HGR simples (pedagogie de 1' Ap- 
plesoft), 

• utilisation ludique, sinon artisrjque, 
pour jeunes et moins jeunes, 

• utilisation pratique : dessin de 
schemas ou de logos. 

Contrairement a d'autres program- 
mes deja publies dans Pom's, il n'a 
pas ete prevu de possibilites d' anima- 
tion. 



Les possibilites et les 
commandes 

A la mise en route, le programme lit 
les tableaux de DATA et charge le 
module binaire INVERSION VIDEO 
HGR. OBJ qui occupe 27 octets de 
$300 a $31A et permet d'obtenir 
1' inversion video du dessin en cours 
de traitement. Puis il initialise le sys- 
teme et attend les commandes de 
l'utilisateur. 

Chaque commande que Ton peut 
envoyer pour deplacer le spot sur 
1' Scran est constitute d'une lettre ou 
d'un caractere de controle. On dis- 
pose ainsi des commandes suivan- 
tes : 

- ESC : le spot peut, ou non, laisser 
une trace a l'ecran; on passe d'un 
mode a 1' autre par cette commande. 
Le mode "ecriture" est indique en 
bas de l'ecran par le mot ECRIS. 

- I,J,K,M : permettent les deplace- 
ments bien connus des utilisateurs 
d'Apple. 

- O, N,U: permettent les depla- 
cements obliques intermediaires. 

- V (voir) : permet en mode "eteint" 
de visualiser la position actuelle du 
spot. 

- E : efface 1' image actuelle, non 
sans laisser la possibility de rattraper 
une entree par erreur dans cette op- 
tion. 

- Q : permet de quitter le pro- 
gramme, avec la m§me precaution 
que ci-dessus. 



- Y : transforme instantanement 
l'image video en son inverse. 

- CTRL-C : permet de sauver sur 
disquette une image HGR. le pro- 
gramme demandant son nom. 

- A : permet de charger en MEV et 
done de visualiser une image deja 
enregistree sur disquette. II est evi- 
demment possible de travailler a 
nouveau sur cette image. 

- P : positionne directement le spot 
en un point determine dont les coor- 
donnees X (0 a 279) et Y (0 a 159) 
sont specifiees ensuite a la demande 
du programme (les rentrer sous la 
forme X,Y). Les coordonnees actuel- 
les du spot sont toujours affichees a 
gauche sur la derniere ligne de 
l'ecran. 

- CTRL-D : trace une droite dont les 
coordonnees suivront sous la forme 
X0,Y0,X1,Y1. 

- R : trace un rectangle dont le spot 
represente le sommet en haut a gau- 
che. Les dimensions doivent suivre, 
ainsi qu'un caractere : si e'est B le 
rectangle sera plein, sinon seul le pe- 
rimetre sera trace (rentrer les don- 
nees sous la forme X.Y.Caractere). 

- C : trace un cercle centre sur le 
spot. Le rayon sera specifie ainsi que 
B ou un autre caractere (cf. ci- 
dessus). 

- X : permet d'afficher le caractere 
qui est demande ensuite. Dans cette 
version, les caracteres disponibles 
sont ceux qui figurent a la ligne 
10010. 

A noter que le programme teste tou- 
jours la validite des coordonnees afin 
que Ton ne puisse "sortir" de l'ecran. 



Principales variables 

X,Y : coordonnees du spot 

CL : couleur (0= eteint, 3= allume) 

R$ : derniere commande entree 

A$, B$, C$ : parametres de certaines 
commandes 

LX : dimension horizontale du rec- 
tangle 



LY : dimension verticale 

DX.DY : coordonnees de debut 
d'une droite 

FX, FY : coordonnees de fin d'une 
droite 

R : rayon du cercle 

FG : rang du caractere affiche par la 
commande X 

V : valeur attribute a la ligne du ca- 
ractere 

NC : nombre de caracteres afficha- 
bles 

CD$ : ensemble des caracteres de 
largeur 5 

CE$ : ensemble des caracteres de 
largeur 3 

TB%(I,J) : tableau des codes des ca- 
racteres (lu en DATA - cf. 1' article sur 
les caracteres geants). 



Analyse du programme 

Lignes 10 a 20 : initialisation 

Lignes 30 a 190 : recherche 
commande et tests 

Lignes 200 a 350 : test X et Y et de- 
placement du spot 

Lignes 360 a 380 : commande P 

Lignes 400 a 470 : commande R 

Lignes 500 a 525 : commande D 

Lignes 600 a 640 : commande R et 
couleur 

Lignes 700 a 760 : commande C 

Lignes 900 a 920 : commande V 

Lignes 1000 a 1030 : commande 
CTRL-C 

Lignes 1050 a 1060 : commande A 

Lignes 1100 a 1120 : commande Q 

Lignes 1150 a 1160 : commande E 

Lignes 2000 a 2090 : DATA pour les 
caracteres affichables 



Lignes 2900 a 3120 : affichage d'un 
caractere (la technique est la meme 
que pour les caracteres geants et les 
DATA sont identiques. Leur nombre 
ainsi que les graphismes peuvent §tre 
modifies selon les besoins de l'utilisa- 
teur!. 
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Programme AIDE. HGR 



?! 



10 REM 

11 REM 

12 REM 



AIDE AU DESSIN HGR 
(APPLESOFT) 



isaassi 



15 



17 

20 
30 



31 

32 



TEXT : HOME : PRINT "AIDE AU DESSIN 

HGR" : VTAB 6: PRINT "PATIENCE 

.": POKE 35,23: GOSUB 10000: HGR 
PRINT CHRS (4VBL0AD INVERSION VIDE 
O HGR. OB J" 
X - 140:Y = 80:CL = 
VTAB 24: HTAB 1: PRINT "X";X;" Y";Y; 
: IF CL = 3 THEN PRINT " ECRIS 
" ; : GOTO 32 
PRINT " "; 

VTAB 21: HTAB 1: CALL - 958: HTAB 1 
O: PRINT "COMMANDE " ; : GET RS: PR 
INT RS 

> 27 THEN 60 



40 IF ASC (RS) < 

45 IF CL = O THEN CL = 3 : GOTO 60 

50 CL = O 

60 IF ASC (RS) 



61 
62 
65 
70 



IF 
IF 
IF 
IF 



80 IF 



90 IF 



100 IF 



110 IF 



120 IF 



130 IF 



TO 200 
ASC (RS) 
ASC (RS) 
ASC (RS) 
ASC (RS) 
TO 200 

ASC (RS) 
TO 200 

ASC (RS) 
TO 200 

ASC (RS) 

Y - 
ASC 

Y ♦ 
ASC 

Y + 
ASC 

Y - 



= 73 THEN Y = 

= 3 THEN 1000 

= 67 THEN 700 

= 82 THEN 400 

= 77 THEN 



Y - l: GO 



Y = Y 



GO 



= 75 THEN X = X + l: GO 



= 74 THEN X = X - l: GO 



140 
150 
160 
170 
180 
181 
182 

183 
190 
200 
210 
220 
230 
300 
320 
330 
350 
360 

370 

375 



IF 
IF 
IF 
IF 
IF 
IF 
IF 



79 THEN 
l: GOTO 200 
(RS) = 44 THEN 
l: GOTO 200 
(RS) = 78 THEN 
l: GOTO 200 
(RS) = 85 THEN 
l: GOTO 200 

ASC (RS) = 86 THEN 900 
ASC (RS) = 4 THEN 500 
ASC (RS) = 69 THEN 1150 
ASC (RS) = 65 THEN 1050 

80 THEN 360 

81 THEN 1100 
89 THEN 



l:Y 



l:Y 



X - l:Y 



X = X - l:Y 



(RS) 
(RS) 



88 THEN 2900 



GOTO 300 



ASC 
ASC 

ASC (RS) = 89 THEN CALL 3 « 25 
6: GOTO 30 
IF ASC (RS) 
GOTO 30 
IF X 
IF X 
IF Y 
IF Y 
REM 

HC0L0R= CL 
HPLOT X,Y 

VTAB 23: CALL - 958: GOTO 30 
VTAB 21: CALL - 958: 

EN X-Y ";AS,BS 
IF VAL (AS) < O 
THEN PRINT " 



- 1 THEN X = O: GOTO 220 
280 THEN X = 279 

- 1 THEN Y = 0: 
160 THEN Y = 159 



INPUT "ALLER 



> 259 



OR VAL (AS) 
: GOTO 30 
(BS) < OR VAL (BS) > 159 

PRINT "": GOTO 30 
(AS):Y = VAL (BS): GOTO 90 

CALL - 958: INPUT "DIM X- 



IF VAL 
THEN 

380 X = VAL 


400 VTAB 21: 

Y;COUL.: ";AS,BS,CS 
410 LX = X + VAL (AS) :LY * 



VAL (BS 



420 

430 

440 
450 

460 



) 

IF LX > 279 THEN AS = 

X) :LX = 279 
IF LY > 159 THEN BS = 

Y) :LY = 159 
IF CS = "B" THEN 600 
HCOLOR= 3: FOR I 

HPLOT X + i,y: 



STRS (279 - 



STRS (159 - 



470 
500 

510 



= TO VAL (AS) : 
HPLOT X + I,Y + V 

AL (BS): NEXT 
FOR I = O TO VAL (BS) : HPLOT X,Y + 
I: HPLOT X * VAL (AS),Y + I : NE 
XT 

HCOLOR= CL: GOTO 30 

VTAB 21: CALL - 958: PRINT "DROITE 

XY. . .A. . .XY" 
INPUT "";AS,BS,CS,DS: IF VAL (AS) 
< OR VAL (AS) > 279 THEN PRIN 
T "": GOTO 500 
512 DX = VAL (AS): IF VAL (BS) < OR 
VAL (BS) > 159 THEN PRINT "": 
GOTO 500 
515 DY = VAL (BS) 
VAL (CS) > 
GOTO 500 
520 FX = VAL (CS) 
VAL (DS) > 
GOTO 500 
525 FY = VAL (DS) 

DY TO FX, FY: GOTO 30 
HCOLOR= 3: FOR I = TO 
O TO VAL (BS) 
+ I,Y * J 



IF VAL (CS) < O OR 
279 THEN PRINT "": 



IF VAL 
159 THEN 



(DS) < 
PRINT 



O OR 



600 
610 
620 
630 
640 
700 

710 



HCOLOR= 3: HPLOT DX, 



VAL (AS) 



FOR J = 
HPLOT X 
NEXT J 
NEXT I: 
VTAB 21: 



HC0LOR= CL: GOTO 30 
CALL - 958: INPUT "CERCLE 
R ;COUL. ";AS,CS 
R = VAL (AS) : IF X 



♦ R > = 279 OR 



715 
720 
725 
730 
740 

750 
760 
800 
810 
820 
830 
900 

910 
920 
1000 



X - R < 
Y - R < 
IF CS = "B 
HCOLOR= 3: 
T = SQR <R 
HPLOT X 
HPLOT X 



= O OR Y ♦ R > 
= THEN 700 
THEN 800 
FOR I = - R TO 
» R - I » I) 
I,Y ♦ T 
I,Y - T 



159 OR 



1010 

1020 
1030 
1050 
1060 



1100 



NEXT 

HCOLOR= CL: GOTO 30 
HC0L0R= 3: FOR I = - R TO R 
T = SQR (R « R - I « I) 
HPLOT X+I,Y*TTOX*I,Y-T 
NEXT : HCOLOR= CL: GOTO 30 
FOR I = 1 TO 300: HCOLOR= 3: HPLOT 
X,Y 

HCOLOR= 0: HPLOT X,Y: NEXT 
HCOLOR= CL: HPLOT X,Y: GOTO 30 
VTAB 21: HTAB 1: CALL - 958: INPU 
T "NOM DE L' IMAGE ET DRIVE ";RPS, 
D: IF LEN (RPS) = OR D < 1 OR 
D > 2 THEN 1000 
PRINT CHRS (4)"BSAVE"RPS",AS2000, 

LS1FFF, D"D 
PRINT "IMAGE SAUVEGARDEE" 
GOTO 30 

ONERR GOTO 5000 

VTAB 21: CALL - 958: INPUT "NOM D 
E L' IMAGE ET DRIVE ";RS,D: PRINT 
CHRS (4)"BL0AD"RS",D"D: GOTO 30 
VTAB 21: HTAB 1: CALL - 958: PRIN 
T "ATTENTION FIN = CONTINUED " 
;: GET RS: PRINT RS: IF RS = "0" 
THEN TEXT : HOME : END 
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1110 IF RS < > "1" THEN 1100 
1120 GOTO 30 

1150 VTAB 21: HTAB 1: CALL - 958: PRIN 
T "ETES-VOUS SUR 0/N " ; : GET RS : 
PRINT RS: IF RS = "O" THEN HGR : 
GOTO 20 

1160 GOTO 30 

2000 DATA 65,14,17,17,31,17,17,17,66,3 
0,17,17,30,17,17,30,67,14,17,16,1 
6,16,17,14,68,30,17,17,17,17,17,3 


2010 DATA 69,31,16,16,30,16,16,31,70,31 
,16,16,30,16,16,16,71,14,17,16,19 
,17,17,14,72,17,17,17,31,17,17,17 

2020 DATA 35,10,10,31,10,31,10,10,74,1, 
1,1,1,1,17,14,75,17,17,18,28,18,1 
7,17,76,16,16,16,16,16,16,31 

2030 DATA 77,17,27,21,17,17,17,17,78,17 
,25,21,21,19,17,17,79,14,17,17,17 
,17,17,14,80,30,17,17,30,16,16,16 

2040 DATA 81,14,17,17,17,21,19,15,82,30 
,17,17,30,20,18,17,83,14,16,16,14 
,1,1,14,84,31,4,4,4,4,4,4 

2050 DATA 85,17,17,17,17,17,17,14,86,17 
,17,17,17,17,10,1,87,21,21,21,21, 
21,21,10,88,17,10,10,4,10,10,17 

2060 DATA 89,17,10,4,4,8,16,16,90,31,1, 
2,4,8,16,31,45,0,0,0,0,31,0,0,50, 
14,17,1,2,4,8,30 

2070 DATA 51,30,1,1,14,1,1,30,52,16,16, 
16,18,31,2,2,53,30,16,16,28,1,1,2 
8,54,14,17,16,30,17,17,14 
2080 DATA 55,31,1,1,14,4,8,16,56,14,17, 
17,14,17,17,14,57,14,17,17,14,1,1 
,14,46,0,0,0,0,6,6,0,73,7,2,2,2,2 
.2,7 

2090 DATA 49,2,6,2,2,2,2,7,32,0,0,0,0,0 
,0,0 

2900 VTAB 21: HTAB 1: CALL - 958: PRIN 
T "CARACTERE: ";: GET AS: PRINT A 

s 

2910 FG = 0: FOR K = 1 TO LEN (CDS) 



2920 IF MIDS (CDS,K,1> < > AS THEN 29 
40 

2930 FG = K:K = LEN (CDS) 
2940 NEXT K 

2950 IF FG < > O THEN 2990 
2960 FG = O: FOR K = 1 TO LEN (CES) 
2970 IF MIDS (CES,K,1) < > AS THEN 29 
80 

2975 FG = K ♦ 35:K = LEN (CES) 
2980 NEXT K 

2990 IF FG = O THEN PRINT "";: GOTO 3 


3000 IF X ♦ 5 > 279 THEN PRINT "";: GO 

TO 30 

3001 IF Y + 7 > 159 THEN PRINT "";: G 

OTO 30 
3005 HC0L0R= 3 
3010 FOR L = 1 TO 7 
3050 V = TBX(FG,L> 
3060 IF FG > 35 THEN 3090 

3070 IF INT (V / 16) = 1 THEN HPLOT X 

♦ 1,Y + L:V = V - 16 
3080 IF INT (V / 8) = 1 THEN HPLOT X 

+ 2,Y ♦ L:V = V - 8 
3090 IF INT (V / 4) = 1 THEN HPLOT X 

♦ 3,Y ♦ L:V = V - 4 

3100 IF INT (V / 2) = 1 THEN HPLOT X 

♦ 4,Y ♦ L:V = V - 2 

3110 IF V THEN HPLOT X + 5,Y + L 
3120 NEXT L: GOTO 30 

5000 VTAB 21: HTAB 1: CALL - 958: PRIN 

T "ERREUR TAPER <<RETURN>> 

": INPUT "";RS: GOTO 30 

9999 REM 

10000 REM INIT. CARACTERES 

10001 REM 

10010 NC = 39: CDS = " ABCDEFGH#JKLMNOPQRS 

TUVWXYZ-23456789":CES = ".II " 
10020 DIM TBX(NC,7> 

10030 FOR I = 1 TO NC: FOR J = O TO 7 : 

READ TBX(I,J>: NEXT J: NEXT I 
10040 RETURN 



Programme INVERSION VIDEO HGR 
Assembleur SCII 



1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 



« INVERSION 
.OR 



MEM 



DEB 



.EQ 

LDA 
STA 
LDA 
STA 
TAY 
LDA 
EOR 
STA 
INY 
BNE 
INC 
LDA 
CMP 
BNE 
RTS 



VIDEO HGR 
$300 
$17 
#320 
MEM + 1 
#800 
MEM 

(MEM) ,Y 
#SFF 
(MEM) ,Y 

DEB 
MEM + 1 
MEM + 1 
#S40 
DEB 



Recapitulation 

Inversion VIDEO HGR. OBJ 

•300. 31B 

0300- A9 20 85 18 A9 00 85 17 

0308- A8 Bl 17 49 FF 91 17 C8 

0310- DO F7 E6 18 A5 18 C9 40 

0318- DO EF 60 00 



Un de nos lecteurs. Yves Opizzo. nous a adresse un 
programme de gestion de tournois d'echecs ecrit en 
Basic et assez bien fait. Compte tenu de la particularity 
de ce programme, nous ne comptons pas le publier. 
Les lecteurs interesses peuvent envoyer une disquette 
avec une enveloppe timbree (pour le retour de la dis- 
quette) a Yves Opizzo - Rue de la Poste - 84760 St 
Martin de la Brasque. 
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Heureux possesseurs 
d'un Apple 

I,IV/e,ou///," 
voici votre reseau. 

CALVADOS 

• Ouvert depuis juin 1982, c'est le reseau choisi par Apple en France et par 
ses concessionnaires. 

• Bases de donnees boursieres (bourses franchises et etrangeres). 

• Bases de donnees proposees par Apple pour enrichir votre pratique de 
l'ordinateur personnel : 

BDT : Base de donnees sur le materiel Apple 
BDM : Catalogue de materiels Apple et compatibles 
BDL : Catalogue de logiciels Apple et compatibles. 

• Transfert de fichiers et de documents (traitement de texte et «calc») entre 
tout Apple ou qu'il soit en France, avec conversion automatique QWERTY- 
AZERTY et Apple ][, //e, ///. 

• Messagerie electronique et panneau d'annonces accessibles a partir de tout 
point du territoire national. 

• Constitution de reseaux prives sans investissements et fonctionnant avec 
tout materiel. 

• Constitution de bases de donnees privees pour consultation a distance sur 
tout materiel. 

• Pour les SSCI et createurs de logiciels, un contact immediat avec plus de 
170 revendeurs ( 200 fin 1983), avec possibilite de diffusion de messages 
promotionnels. 

• Transfert d'informations entre disquettes et bandes magnetiques standard. 

• Des tarifs qui font de Calvados le moyen de communication et le serveur le 
moins cher du marche. Conditions speciales pour clubs. 



Boite Postale 21-07 75327 Paris Cedex 07 - Tel. : 705.09.04 
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SERVICE CALVADOS 



-LE M'SEAU MICRO INFORMATIQUE - 



01210 FERNEY-VOLTA1RE 
CIP 

43bis, Av. du Jura 
(50) 40.62.34 

CA1-VA 1100 

02100 SAINT QUENTIN 
COGNET 

21, Rue Vicior Basch 
(23)62.72.89 

CALVA 1087 

03200 VICHY 

03 INFORMAT1QUE 

7, Rue Voltaire 

(70)41. 27.50-CALVA 1031 

06000 NICE 

D.S.A. INFORMATIQUE 

5. Bd Debouchage 
(93) 85.15.96 

CALVA 1125 

06000 NICE 
MEDIA SOFT 

27, Rue Delille 

(93)85.28.06 -CALVA 1073 

06000 NICE 

SORBONNE INFORM ATIQUE 

40, Rue Gioffredo 

(93)85.17.55-CALVA 1072 

06000 NICE 
MCS 

7. Rue Dante 

193) 96.50.55 -CALVA 1054 
06150 CANNES LA BOCCA 
ONDE MARITIME 

28, Boulevard du Midi 

(93)47.44.30-CALVA 1024 

06600 ANTIBES 

ESPACE INFORMATIQUE 

1, Chemin de Saint-Claude 

(93)74.78.01 -CALVA 1049 

06700 ST LAURENT DU VAR 
MOS COMPUTERLAND 
Avenue Leon Beranger 

(93)07.61. 12-CALVA 1129 

06700 ST LAURENT DU VAR 
POINT MICRO 

CAP 3000 

(93)31.24.40 -CALVA 1046 

MONACO 
MICROTEK 

2. Bd Rainier 111, Monaco 

(93)50.43.44 -CALVA 1 00S 

1 1000 NARBONNE 

R.I.I. INFORMATIQUE 
5, Quai Valliere 

(68)65.15.83 - CALVA 1040 

13001 MARSEILLE 
FNAC MARSEILLE 
Centre Bourse 
(91) 91.30.62-CALVA 1 149 



13005 MARSEILLE 
ELP INFORMATIQUE 

20, Rue Huguenv 
(91)94.91.13 - CALVA 1056 

13006 MARSEILLE 
INTERSOFT 

64. Rue de Prado 

CALVA 1103 

13006 MARSEILLE 
S.M.I. A. 

3 3 A. Avenue Jules Cantini 
(91)37.04.26 - CALVA 1113 
13006 MARSEILLE 
COMPUTERLAND CPL 
1, Av. de Corinthe 
(91) 78.02.02 - CALVA 1004 

13006 MARSEILLE 
ELECTRONIC SERVICE 
COMPUTER 

39, Rue Lieutaud 

CALVA 1161 

13007 MARSEILLE 
PROVENCE SYSTEM 
74. Rue Ste-Le St James 
(91)33.22.33 - CALVA 1055 

13008 MARSEILLE 
MEDIATEC 

485. Avenue du Prado 

(91)71.45.45 - CALVA 1112 

13008 MARSEILLE 

MICROMAG 

C.C. MERMOZ 

111, Rue J. Mermoz 

(91) 71.79. 13 -CALVA 1 132 



13100 A1X EN PROVENCE 
ECO INFORMATIQUE 

Boulevard Coq 

142) 27.11.48-CALVA 1115 

13200 ARLES 

LUDO 

27, Rue de la Rfpublique 

CALVA 1 139 

13700 VENELLES 

SOPROGA 

Avenue de la Mouliero 

(42)61.12.43 - CALVA 1087 



14300 CAEN 

COMPUTERLAND CAEN 

12, Rue St Pierre 
(31)85.62.48 - CALVA 1098 
14390 TRONQUAY 
NORMANDIE INFORMATIQUE 
Residence la Tuilerie 

131)92,56.09 - CALVA 1074 

21000 DIJON 
O.M.G. 

20, Rue Michelet 

(80)30.12.70 - CALVA 1045 

21000 DIJON 

LASOBIKOR 

7, Rue Monge 

(80)30.09.70 - CALVA 1014 

21000 DIJON 

SETTEM 

36, Rue Jeannin 

(80)66.16.43 - CALVA 1033 

22000 ST BRIEUC 

CENTRE INFORMATIQUE 

BRETON 

19, Rue de Rohan 

(91) 61.00.54-CALVA 1082 



31000 TOULOUSE 
SOUBIRON 

9, Rue J.F. Kennedy 
161)21.64.39 - CALVA 1020 
33000 BORDEAUX 
S1VEA BORDEAUX 
9, Rue de Lalande 
(56)91.55.08 - CALVA 1 122 
34000 MONTPELL1ER 
MICRO 34 
7, Cours Gambctta 
(67)92.91.23 - CALVA 1080 
34130 VALERGUES 
C.E.B.E.A. 
Route Nationals 1 13 
(67)71.76.69 - CALVA 1079 



5 5000 RENNES 

COMPUTERLAND 

BRETAGNE 

13, Avenue du Mail 
(99)54.47.12 - CALVA 101 1 
35000 RENNES 
X-MATIC 

161, Avenue General Patton 
(99)38.31.80 - CALVA 1121 
35100 RENNES 
DELTA MICRODIN 
4, Place de Bretagne 
199)30.65.18 - CALVA 1120 
3 5000 TOURS 
A. R.E.I. 

8, Allee du Manoir 

(47) 64.69.93 -CALVA 1099 

37000 TOURS 

BOUTIN INFORMATIC 

36, Rue Marceau 
(47)20.51.83 - CALVA 1060 



Ces concessionnaires 
APPLE 
sont abonnes a CAL\ADOS. 
Demandez-leur 
une demonstration! 



25200 MONTBELIARD 
MICRO ALPHA SOFT 

1 1. Impasse du Lacquct 

(84)36.92.33 - CALVA 1018 

26500 BOURG-LES-VALENCES 

ECA ELECTRONIQUE 

22, Quai Thannaron 

(75) 42.68.88-CALVA 1 153 

29000 QUIMPER 

MATRICE DEVELOPPEMENT 

2, Venclle de Kergos 

(98)55.75.93 - CALVA 1094 

29200 BREST 

LA BOUTIQUE 

INFORMATIQUE 

156, Rue Jean Jaures 

(98)44.32.79 - CALVA 1 107 

30000 N1MES 

E.T.I. 

58. Rue Pierre Semard 

(66)36.02.52 - CALVA I III 

30000 NIMES 
ETI 

58, Rue Pierre Semard 

CALVA 1 1 1 1 

30100 ALES 
ARCOMEL 
8bis, Rue Mistral 
(66)52.15.91 - CALVA 1083 
31000 TOULOUSE 
BUREAUMATIQUE 
4, Promenade des Capitouls 
(61)21.87.27 - CALVA 1128 



37000 TOURS 
POLY-SOFT 

67, Rue Michel Colombe 
(47)66.66.49 - CALVA 1010 

37000 TOURS 

SELECTRON 

20-24, Rue de Jerusalem 

(47)20.80.70 - CALVA 1093 

38100 GRENOBLE 

GAMMA INFORMATIQUE 

9, Cours de la Liberation 

(76)96.30.05 - CALVA 1048 

38100 GRENOBLE 

FNAC GRENOBLE 

3. Grand-Place 

(76) 09.46.63 -CALVA 1147 

45000 ORLEANS 

A.G.O. 

48. Bid Alexandre Martin 
(38)54.45.13 - CALVA 1090 

45 ORLEANS 01 
A.M.C. 

13, Rue des Minimes 
(38)62.62.58 - CALVA 1 1 16 

46013 NANTES 
SIVEA 

121. Bd Gabriel Guist'hau 

(40) 47.53.09 - CALVA 1097 

49000 ANGERS 

INFORMATIQUE SERVICE 

42, Rue Parcheminerie 

(41) 88.95.07 CALVA 1134 



51 100 REIMS 
ORGANIGRAMME 

16. Rue Emile Zola 

126) 88.5 1. 1 3 -CALVA 1137 

53000 LAVAL 

SLAD INFORMATIQUE 

29, Rue Ambroise Pare 

(43)49.25.45 - CALVA 1026 

54000 NANCY 

JEAN VLASTOS 

MICRO INFORMATIQUE 

143, Rue Sgt Blandon 

(8)341.26.16 - CALVA 1130 

54000 NANCY 

PRECILAB 

96, Rue Stanislas 

(8)337.06.78 - CALVA 1016 

54400 LONGWY 

RANDOM 

18, Rue Mercy 

(8) 224.80.1 I -CALVA 1081 

54520 LAXOU 

SEMITEC 

69, Rue de Mareville 

(8)340.43.38 - CALVA 1008 

56100 LORIENT 

L'ORDINATEUR 56 

1 1, Quai des Indes 

(97) 64,52.54-CALVA 1 108 

57000 METZ 

LA MICRO BOUTIQUE 
ECONOMA1SON 

3, Rue Paul Bezanson 
(8)775.41.56 - CALVA 1114 
57000 METZ 
FNAC METZ 
Centre Saint Jacques 
14, Rue Tete-d'Or 
18) 736. 16.22 -CALVA 1157 
57000 METZ 

LA MICRO BOUTIQUE 

3, Rue Paul Bezanson 

CALVA 1114 

571 10 YUTZ 
M1CROSERVICE 

B.P. 130-CALVA 1133 

57800 FREYMING-MERLEBACH 

CENTRE MICRO- 

INFORM ATIQUE 

3, Place de la Gare 

(8)781.14.89 - CALVA 1030 

59000 LILLE 

M.B.D.C. 

172. Rue Sollerino 

CALVA 1061 

59000 LILLE 

FNAC LILLE 

9, Place du Gl de Gaulle 

(20) 57.88.43 -CALVA 1 158 , 

59000 LILLE 

RYO INFORMATIQUE 

42, Rue de Paris 
120)75.92.23 ■ CALVA 1076 

59000 LILLE 
SIVEA 

2 1 bis. Rue de Valmy 
(20)57.88.43 - CALVA 1075 

59300 VALENCIENNES 
MICROMEGA 

38, Rue des Famars 
(27)42.30.30 - CALVA 1086 

59700 MARCQ EN BAROEUL 

M1CRODATA 

INTERNATIONAL 

920, Avenue de la Republique 
(20) 98.60.06 -CALVA 1084 
59800 LILLE 

PAMP MICRO-INFORMATIC 

5, Rue de Pas-Nouveau Siecle 

(20) 57.91.87 - CALVA 1063 
60108 CREIL 
QUENEUTTE 

22, Rue de la Republique 

(4)425.04.26 - CALVA 1032 
61000 ALENCON 
TEMPS-X 

42, Rue de Lame de Tassigny 

CALVA 1156 

62000 ARRAS 

SICORFE 

I8bis. Rue Lamartine 

(21) 23.08.56-CALVA 1 144 

suite page suivanle ► ► fe/' 
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SERVICE CALVADOS 



-IE PESEAU MICRO INFORMATIQUE 



63000 CLERMONT-FERRAND 

FLAGELECTR1C 

142, Avenue Mermoz 

173)92.13.46 - CALVA 1 119 

63008 CLERMONT-FERRAND 

NEYRIAL INFORMATIQUE 

3. Cours Sablon 

173)92.89.50 - CALVA 1110' 

64000 PAU 

OBBO ABDOUR 

14, Bid Alsace-Lorraine 

(59) 55.43.47-CALVA 1138 

64100 BAYONNE 

LE CALCUL INTEGRAL 

3, Rue A. Briand 

(59)55.43.47 - CALVA 1089 

67000 STRASBOURG 

CILEC 

18, Quai St Nicolas 
(88)37.31.61 - CALVA 1015 
67000 STRASBOURG 
FNAC STRASBOURG 
C.C. Maison-Rouge 
Place Kleber 

(88) 22.03.39-CALVA 1 151 
67000 STRASBOURG 
MICRO-MAT 
30. Rue Geiler 
(88)60.68.68 - CALVA 1077 
67200 STRASBOURG- 
KOENIGSHOFFEN 
CEBEA 

89A, Rue des Romains 

CALVA 1079 

67200 STRASBOURG 
WAL2 INFORMATIQUE 

89, Rome des Romains 

(88) 29.54.55 - CALVA 1 105 

68000 COLMAR 
FNAC COLMAR 
I, Grande Rue 

(89) 23.32.12-CALVA 1148 
68200 MULHOUSE 
FNAC MULHOUSE 

I. Place Franklin 

(89) 42.09.55 -CALVA 1160 

69002 LYON 
FNAC LYON 

'62. Av. de la Republique 
(7) 842.26.49 -CALVA 1 146 

69003 LYON 

AB INFORMATIQUE 

18, Rue Paillcron 

(7)851.44.86 - CALVA 1041 

69003 LYON 

ALPHA SYSTEMS 

84, Av. du Marechal de Saxe 

(7)860.89.34 - CALVA 1036 

69003 LYON 

POINT MICRO 

LA PART DIEU 

183. Rue Garibaldi 

(7) 895.20.82 -CALVA 1023 

69003 LYON 

BIMP 

20, Rue Servient 

(7) 860.84.27-CALVA 1058 



69006 LYON 
ALTI 

39. Rue Barrier 

(7)824.00.03 - CALVA 1042 

69006 LYON 

ECO-INFORMATIQUE 

50. Cours Vuitton 

( 7)894.60.56 - CALVA 1066 

71000 MACON 

CLINIQUE ELECTRONIQUE 

369. Rue de Paris 

(85)38.20.84 - CALVA 1053 

72000 LE MANS 

OMB LE MANS 

42, Rue Einstein 

(43) 24.99.40-CALVA 1154 

72000 LE MANS 

AESCULAPPLE 

4, Rue de Richebourg 

(43)24.97.80 - CALVA 1067 



72000 LE MANS 
ASCI 

1 15. Rue Nationale 

(43)84.28.28 - CALVA 1095 

74000 SAINT GEVR1ER 
SIGEA 

34. Avenue de la Republique 
(50)57.02.80 - CALVA 1043 

74102 ANNEMASSE 
D.S.A. MICRO 

1 5. Rue Adrien Ligue 
(50)38.31.40 - CALVA 1044 

75001 PARIS 
MICRO SUP 

6, Place Venddme 
(1)260.67.15 - CALVA 1057 

75001 PARIS 
FNAC FORUM 

I, Rue Pierre Lescot 

(1) 261.81. 18-CALVA 1150 

75006 PARIS 

FNAC MONTPARNASSE 

136. Rue de Rennes 

(1) 544.39.12-CALVA 1150 

75006 PARIS 
MICRODATA 

26, Rue de Conde 

CALVA 1051 

75007 PARIS 
M.V.I. 

27, Rue Vaneau 
(1)551.66.77 - CALVA 1062 

75008 PARIS 
A.M.E. 

172, Boulevard Haussman 
(1)562.96.40 ■ CALVA 1059 

75008 PARIS 
EUROPE 

COMPUTER SYSTEMES 

16. Rue Washington 

CALVA 1092 

75008 PARIS 
L'ORDINATEUR 
INDIVIDUEL AFFAIRES 

30, Rue Cambaceres 
(1)742.91.00 ■ CALVA 1050 

75008 PARIS 

POINT MICRO BOETIE 

16. Rue de la Boetie 

(1)265.89.35 - CALVA 1019 

75008 PARIS 
S.I.V.E.A. 

13. Rue de Turin 

(1)522.70.66 - CALVA 1052 

75009 PARIS 

COMPUTERLAND MOS 75 

8. Rue Bleue 

(1)824.65.80 - CALVA 1064 

75009 PARIS 

JCR ELECTRONIQUE 

58, Rue Notre Dame de Lorette 
(1)282.19.80 - CALVA 1078 

75009 PARIS 
L.P.S. BUREAU 

46. Rue Laftitte 

(1)878.26.45 - CALVA 1007 

75009 PARIS 

INTERNATIONAL COMPUTER 

29. Rue de Clichy 

(I) 285.24.55 -CALVA 1103 

75010 PARIS 
SOFT MACHINE 

31. Bd de Magenta 

CALVA 1088 

"75010 PARIS 
HELLO 
1, Rue de Metz 
(1) 523.30.34-CALVA 1 143 

75011 PARIS 

MICRO INFORMATIQUE 
DIFFUSION 

5 1 bis, Av. de la Republique 
(1)357.83.20 - CALVA 1009 



75011 PARIS 
TERTIAL 

14, Rue Jules Valles 
CALVA 1140 



75012 PARIS 
ELLIX 

7, Rue Michel-Chasles 
(1)307.60.81 - CALVA 1005 

75012 PARIS 
GESTION MICROS 
ET SERVICES 

212-214, Avenue Daumesnil 
(1)345.28.52 - CALVA 1068 

75015 PARIS 
ILLEL CENTER 
INFORMATIQUE 

143, Avenue Felix Faure 
(1)554.97.48 - CALVA 1001 

75015 PARIS 
INFORMATIQUE 
ELECTRONIQUE FRAN CAISE 

228, Rue Lecourbe 
(1)828.06.01 - CALVA 1006 



75015 PARIS 




MICRO ASSISTANCE 


66, Rue Castagnary 




(1)530.05.28 - CALVA 


1037 


75015 PARIS 




SIDEG 




170, Rue St Charles 




(1)557.79.12 - CALVA 


1013 


75015 PARIS 




KA 




212. Rue Lecourbe 




(1) 533.13.50-CALVA 


1027 


75015 PARIS 




DIF ELECTRONIQUE 


28. Rue Miollis 




(1) 566.68.38-CALVA 


1 142 



75016 PARIS 

MICRODATA 

INTERNATIONAL 

50. Rue Raynouard 
(1)525.81.64 - CALVA 1051 

75016 PARIS 
SOCIETE ANTIGONE 

12. Avenue Pierre ler de Serbie 
CALVA 1028 

75017 PARIS 

B.S.C. INFORMATIQUE 

39, Rue Cardinet 
(1)763.95.33 - CALVA 1117 

75017 PARIS 

NASA ELECTRONIQUE 

46, Avenue de la Grande Armee 
CALVA 107] 

75017 PARIS 
GAMIC 

27, Rue Guersant 

(1) 574.02.92 -CALVA 1131 

75017 PARIS 
RANDOM FRANCE 

75, Bd Pereire 
(1)227.59.20 - CALVA 1126 

75017 PARIS 
SOCIETE FRANCAISE 
D'INFORMATIQUE 
APPLIQUEE 

41, Rue la Condamine 

CALVA 1065 

75018 PARIS 

B.I. P. LINFORMATIQUE 
PERSONALISE E 

22, Rue Joseph Dijon 
(1)255.44.63 - CALVA 1070 

75018 PARIS 
BMI 

I7bis, Rue Vauvenargues 
CALVA 1039 

76000 ROUEN 

L'ESPACE TEMPS REEL 

9, Quai du Havre 
(35)89.29.11 - CALVA 1101 



76200 DIEPPE 
ELECTRODOM 

9, Rue Lemoyne 
(35)84.18.58 - CALVA 1002 

78000 VERSAILLES 
MICRORAMI 

17, Avenue de Saint Cloud 
(3)021.30.15 - CALVA 1106 

78100 ST GERMAIN EN LA YE 
ORDI GESTION 

13, Rue Louviers 

(3)51.58.25 - CALVA 1109 

78117 CHATEAUFORT 
AVIRADIO 

Toussus-le-Noble 
(3)956.22.20 - CALVA 1 127 

78190 TRAPPES 

PROBE INFORMATIQUE 

26, Avenue des Freres Lumiere 
(3)062.26.03 - CALVA 1123 

80000 AMIENS 
P1CARDIE 

MICRO-INFORMATIQUE 

6. Rue Allan 

(22)91.52.39 - CALVA 1022 



80000 AMIENS 
LOGIC 

18, Rue des Augustins 

(22) 92.39.46-CALVA 1163 

84000 AVIGNON 

SYNERGIE INFO 

71, Bid Montclar 

(90) 86.52.32 -CALVA 1035 

85000 LES SABLES D'OLONNECdx 

IDEES INFORMATIQUE 

Port Olona - B.P. 193 

(51)95.19.47 - CALVA 1069 

86000 POITIERS 

LISTE INFORMATIQUE 

34. Bd Soli'erino 

(49)41.43.86 - CALVA 1091 

87000 LIMOGES 

MICROHM 

81, Boulevard Gambetta 

CALVA 1118 

87000 LIMOGES 
MICROHM 
81, Bd Gambetta 
(55)34.10.12 - CALVA 1118 
90000 BELFORT 
FNAC RELAIS-SNC 
6, Rue des Capucines 

CALVA 1159 

91420 MORANGIS 

LA MICROTHEQUE 

Z.I. Ouest Les Sables 

2. Av. Descartes-CALVA 1162 

92086 PARIS-LA DEFENSE 

POINT-MICRO 

Tour Neptune - CALVA 1023 

92100 BOULOGNE 

MINIGRAPHE 

MICRO-INFORMATIQUE 

263, Bd Jean Jaures 

(1)608.44.31 - CALVA 1034 

92120 MONTROUGE 

SERAP MICRO 

15, Rue Louis le Jeune 

CALVA 1155 



95200 SARCELLES Z.I. 

MICROKEY 95 

34, Rue de l'Escouvrier 

(3)419.04.24 - CALVA 1124 

95526 CERGY-PONTOISE Cdx 

ORGAMATIQUE 

9, Chaussee J. Cesar - B.P. 304 

(3)030.37.85 - CALVA 1021 

97200 MARTINIQUE 
MICRO-TRAITEMENT 
Centre Commercial Dillon 
Fort de France 
(596)73.91.45 - CALVA 1096 
97400 LA REUNION 
MICRO SYSTEMES SERVICE 
74, Rue Labourdonnais 
CALVA 1102 



Librairie depositaire de la documentation technique Calvados: 
LA NACELLE - 2, Rue Campagne-Premiere-75014 PARIS - Tel.: 322.56.46. 
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La communication avec F Apple 

Rene Fakir 



Plan de 1' article : 

- Importance des communications 

- Un bref apercu de l'equipement 
necessaire 

- Les services facilement utilisables 
en France 

Importance des 
communications 

Aujourd'hui, doter votre Apple de 
possibilites de communication avec 
d'autres Apples ou d'autres ordina- 
teurs n'a plus besoin d'etre justifie. 
La proliferation des systemes de 
courrier electronique, des services of- 
ferts sur ordinateur, des bases ou 
banques de donnees doit aujourd'hui 
nous motiver a essayer de compren- 
dre la communication. 

Les techniques de communication ne 
sont pas specialement compliquees, 
mais il faut bien avoir conscience du 
cout relativement eleve de l'equipe- 
ment (5000 FF minimum) et du 
temps necessaire a la maitrise des lo- 
giciels permettant de communiquer. 
sans compter l'apprentissage des 
commandes evidemment differentes 
pour chaque systeme interroge. 



L'equipement necessaire 

II est necessaire d'avoir cinq ele- 
ments : 

- Une ligne de telephone ; 

- Une carte de communication ; 

- Un "modem" ; 

- Un cable pour relier le modem a 
la carte de communication ; 

- Un logiciel de communication. 

Quiconque a essaye de monter un 
modem sur une carte serie et a voulu 
relier par un cable ces deux equipe- 
ments s'est rendu compte - non pas 
de la difficulty technique que cela re- 
presente - mais du temps necessaire 
a mettre tout le systeme au point. II 
faut d'abord s' assurer que la carte 
serie est bien configuree pour entrer 
en communication avec un modem 
et non pas avec une imprimante, que 
le cable possede une fiche male a un 
bout et une fiche adequate a l'autre 
bout, que les "switches" de la carte 
serie sont bien adaptes a la vitesse 



du modem, a la parite choisie (la pa- 
rite permet de verifier que les bits qui 
composent le caractere transmis sont 
coherents, un systeme de chiffres cles 
en quelque sorte)... bref, plusieurs 
heures de mise au point et de lecture 
de manuels plus ou moins bien 
ecrits, pour arriver a ses fins. 

En fait, il existe une solution simple 
disponible a ce jour pour resoudre 
ces problemes : c'est le systeme No- 
vation. II est bien certain qu'a partir 
de l'annee prochaine d'autres syste- 
mes purement frangais seront com- 
mercialises et auront en plus des pos- 
sibilites de Videotex (NDLR : voir a 
ce sujet la rubrique micro-informa- 
tions)... mais restons-en pour l'instant 
a ce qui existe. 




Le systeme Novation 

II s'agit en fait d'un systeme complet 
de communication et non seulement 
d'un modem integre dans une carte 
de communication. La version 
CCITT, disponible en France et 
agreee par les PIT, comprend l'equi- 
valent d'une carte serie, d'un modem 
et d'un cable de connection. Le tout 
est livre avec un logiciel denomme 
Corn-Ware, dont les fonctions sont 
decrites en detail dans un manuel re- 
dige dans un francais clair et relative- 
ment complet. Pour l'utilisateur de- 
butant, c'est sans conteste ce qu'il y 
a de plus facile pour communiquer. 

La carte en elle-meme est superbe 
dans sa fabrication, mais incomplete 
dans ses possibilites par rapport a 
celles commercialisees aux Etats- 
Unis. 



Les deux grands atouts du systeme, 
outre sa compacite, resident dans la 
composition automatique des nume- 
ros de telephone, et la possibility de 
transferer a haute vitesse par blocs 
(environ 120 caracteres par seconde) 
des fichiers de tous types : Text, Bi- 
naire ou Applesoft. Le tout est inte- 
gre dans le logiciel Corn-Ware. 

L' ensemble des commandes disponi- 



bles 


figure ci-dessous : 


A 


Apple auto 


C 


Mode term i nal 


U 


Reponse auto 


X 


Envoi memoire 


s 


Sau ver memo i re 


L 


Charger memoire 




Yer i f i er memo i re 


K 


Clavier -> memoire 


F 


Transfer t rapide 


R 


Reconf i gurat i on 


D 


Commande DOS 


2 


Imprimante Off 


H 


Race roc her 


ti 


Terminal memoire 





Ef facer memoire 


B 


Imprirner memoire 


J 


Kfo i r memo i re 


I 


Half /Full duplex 


6 


Ecou te . Of f 


Q 


Qu i t ter 



Bien que tres sophistique dans sa 
conception, le modem n'est pas par- 
ticulierement fragile. Seule, la detec- 
tion de porteuse (son qui indique 
l'etablissement de la communication 
est quelquefois delicate et necessite 
imperativement I' utilisation du petit 
ecouteur livre avec la carte. 

Un secret : il est possible de compo- 
ser un numero de telephone habituel 
via le modem et de basculer en 
mode transmission de la voix et non 
en mode transmission de donnees. 
Cela vous permet d' entendre les 
messages habituels du type "il n'y a 
pas d'abonne...". Pour cela, appuyez 
sur "P" dans le menu general obtenu 
par ESC. 

En resume, le systeme Novation est 
imbartable par son prix, ses fonctions 
integrees, sa documentation et sa fa- 
cility d' utilisation. 
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Par contre. i! est specifique a I' Apple 
II ou He et ne peut done fonctionner 
sur done d'autres ordinateurs, y 
compris 1' Apple ///. 



Les services facilement 
utilisables en France 

Un excellent echantillon des possibili- 
ty de services offerts en telecommu- 
nication sur 1' Apple figure dans un 
recent article de 1' Expansion redige 
par Joel de Rosnay (N° 222 du 
23/9/83, pp. 181-183). Dans cet arti- 
cle sont successivement decrites : 

— une connexion avec le systeme de 
courrier electronique MISSIVE (un 
systeme professionnel tres complet 
qui permet aussi l'envoi de telex 
depuis 1'ordinateur) ; 

— une connexion avec la SOURCE, 
le plus celebre des reseaux ameri- 
cains destines au grand public, dispo- 
nible depuis la France par I'interme- 
diaire de Transpac ; 

— une connexion avec AGORA, base 
de donnees recueillant les depeches 
de l'agence France Presse via le ser- 
veur G.CAM ; 

— une connexion a la base de don- 
nees du CNRS (Pascal) via le serveur 
QUESTEL de Telesystemes. serveur 
specialise dans les bases de donnees 
techniques; voir aussi a ce sujet 
"Alio, Questel" dans le Pom's 8 ; 

— une connexion via Transpac a 
DIALOG, serveur americain permet- 
tant I'acces a plus de 150 (oui. 150 !) 
bases de donnees. L'encyclopedie 
mondiale au bout des doigts, mais a 
quel prix !!! 

II serait possible d'ecrire un livre en- 
tier sur chacun de ces serveurs. Le 
manuel de la Source a lui seul 
comporte environ 200 pages. Parmi 
les systemes developpes en France, 
une mention speciale doit etre accor- 
dee a CALVADOS, systeme particu- 
lierement interessant pour les utilisa- 
teurs d'Apple. 



Le systeme Calvados 

Calvados est ne dans le cerveau d'un 
possesseur d'Apple qui revait de le 
faire communiquer avec d'autres ma- 
chines. C'est done un systeme tres 
oriente "Apple", Apple France ayant 
fortement recommande a ses reven- 
deurs de s'abonner afin de constituer 
un reseau de communication entre 
specialistes. Le systeme s'est progres- 
sivement etoffe jusqu'a etre au- 
jourd'hui particulierement bien au 
point. 



Les points forts 

• Tout d'abord le nombre d'abon- 
nes, environ 300, en tres grande ma- 
jorite utilisateurs d'Apple. Votre re- 
vendeur habituel possede certai- 
nement un numero avec une boite 
postale dans laquelle vous pouvez 
laisser des messages. Avec un peu de 
chance, il vous repondra s'il consulte 
regulierement sa boite. Tous les utili- 
sateurs figurent dans un annuaire 
sous un numero de code. Celui de 
Pom's : 2666. 

• Une messagerie efficace, surtout 
depuis quelle est disponible en 80 
colonnes (septembre 83). A cette 
messagerie est reliee une gestion de 
dossiers personnels. L'envoi simul- 
tane a une liste de personnes est 
prevu. Par contre. il n'existe pas 
d'editeur de texte au niveau du mes- 
sage, les corrections s'effectuant 
avant la validation de la ligne, ce qui, 
a l'usage, n'est pas un inconvenient 
reel. Dans un grand nombre de mes- 




sageries electroniques, l'editeur de 
texte au niveau du mot necessite un 
apprentissage souvent fastidieux de 
touches de commande. 

• Un transfert de fichiers binaire ou 
texte avec acceptation ou refus du 
receveur. C'est l'une des fonctions 
les plus interessantes de Calvados, 
car elle permet l'envoi de fichiers 
sans necessiter une connexion simul- 
tanee de l'emetteur et du receveur. 
Bien qu'ameliore recemment. ce 
transfert est encore un peu trop 
complique surtout quand il s'agit de 
transferer un fichier provenant d'un 
logiciel de traitement de texte, mais il 
fonctionne tres bien. 

• Un acces a des informations tech- 
niques tant sur les materiels que sur 
les logiciels, toutes ces informations 
etant axees sur 1' utilisation d' Apples. 

• Un manuel de 46 pages, tres soi- 
gne, tres complet et redige avec hu- 
mour. 

• La disquette de lancement, remar- 
quable de simplicity avec sa proce- 
dure d'auto-connexion. 



Les limites actuelles 

• Tout d'abord, le systeme de 
copie-ecran, qui ne s'effectue pas en 
simultane lors d'une communication, 
mais en mode bloc lorsque le buffer 
correspondant est plein. Cette proce- 
dure n'est pas suffisamment efficace 
car, pendant l'impression, le message 
a l'ecran "impression en cours" cli- 
gnote sans qu'il soit possible d'effec- 
tuer une operation quelconque. Ce 
defaut devrait etre facilement corrige. 

• Le nombre d'applications, encore 
insuffisant. mais lie bien sur aux res- 
sources provenant du nombre 
d'abonnes. Un grand nombre d'ap- 
plications d'utilite generale devraient 
pouvoir etre montees si le nombre 
d'adherents se multiplie (conferences, 
dechargement de programmes pu- 
blics dans des revues, etc.). Mais, 
pour cela, il est souhaitable que la ta- 
rification, prevue initialement pour les 
revendeurs Apple, soit revue et 
adaptee a l'utilisateur individuel. 

Alors, dans ces conditions, faut-il 
s'abonner ? La reponse est oui sans 
hesitation si Ton acquiert la carte 
modem Novation qui donne droit a 
un essai gratuit . II sera difficile en- 
suite de ne pas continuer a utiliser 
l'un des courriers electroniques les 
moins chers du marche. 

Pour un particulier, l'abonnement au 
service Calvados revient a 400 FF 
par mois, et donne droit a cinq 
heures de connexion. L'heure sup- 
plementaire est de 46 francs la nuit 
et de 75 FF TTC le jour. L' inscrip- 
tion initiale coute 185 francs : on re- 
goit alors la documentation, un nu- 
mero de compte et une disquette 
contenant le logiciel de communica- 
tion. 



La communication dans 
la fabrication de Pom's. 

Depuis deux numeros, Pom's utilise 
la communication pour la prepara- 
tion des textes destines a etre pu- 
blics. Pom's met tous ses textes au 
point en traitement de texte avec Ap- 
plewriter He, quitte a recuperer et 
transformer les textes ecrits par les 
lecteurs a l'aide d'autres traitements 
de texte. Une fois les textes bien mis 
au point en Applewriter He (AW lie), 
ils les enrichit : cela signifie que Ton 
ajoute des chaines de caracteres 
codees pour, par exemple, indiquer 
un changement de police d'impres- 
sion, une modification du corps (taille 
du caractere), le passage en italiques, 
etc Pom's exploite la capacite 
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d'AW He a utiliser un glossaire pour 
faire cela rapidement : ainsi, en ta- 
pant sur la pomme ouverte et T si- 
multanement, on fait apparaitre le 
code d'enrichissement identifiant un 
tirre "$CC63.45". ce qui signifie 
passage au corps 45 de la police 63 
(gras). 

Une fois le texte enrichi, il est passe 
dans un programme de conversion 
automatique ecrit en WPL, le Word 
Processing Language d'AW //e, qui 
recode les caracteres reserves chez 
rimprimeur. Ainsi, le code "$" est re- 
serve, ce qui veut dire qu'il faut, en 
WPL, transformer les "$" du texte 
en une chaine qui donnera finale- 
ment un "$" chez I'imprimeur. 

L'etape suivante consiste a passer le 
texte ainsi obtenu dans un pro- 
gramme, ecrit par Logma, qui recode 



tous les caracteres dans les codes re- 
connus par l'equipement de photo- 
composition de rimprimeur. Ce pro- 
gramme effectue aussi des 
transformations de chalnes. par 
exemple pour remplacer par "e" une 
sequence typique d'AW He telle que 
"ACTRL-H e". 

II ne reste plus qua transmettre les 
textes chez rimprimeur, ce pour quoi 
Pom's utilise a present une carte 
super serie et un modem Satelcom; 
la carte Novation n'est pas utilisee, 
car les programmes de transforma- 
tion sont ecrits en Pascal, qui n'est 
pas transmissible avec la carte Nova- 
tion standard. Dans l'heure qui suit la 
transmission, s'il y a urgence. les pre- 
miers bromures sont disponibles. 

En conclusion. Pom's suit les etapes 
suivantes : 



• mise au point des textes en Ap- 
plewriter //e; 

• adjonction des codes d'enrichisse- 
ment en AW ile; 

• premiere transformation par un 
programme WPL; 

• recodification avec le programme 
Logma; 

• transmission par modem vers I'im- 
primeur. 

Que gagne Pom's par cette proce- 
dure ? Tout d'abord. il n'est plus ne- 
cessaire de perdre toute une semaine 
a corriger les textes des bromures. 
comme ce serait le cas si les textes 
etaient composes manuellement. En 
outre, le cout de la composition est 
reduit de moitie. car il n'y a plus le 
cout de l'entree manuelle. Voila une 
application de la communication de- 
venue indispensable. 



Pom's s'adresse a tous ses lecteurs 

Quel que soit votre niveau, vous pouvez avoir des informations, des idees ou des programmes a transmettre aux autres. 
Nous vous prions de nous les faire parvenir afin que nous puissions faire partager ce savoir que vous avez acquis. L' ideal 
est de nous envoyer une disquette avec vos programmes et un article en traitement de texte (Applewriter I ou 11. ou tout 
fichier TEXT) sur disquette et si possible aussi imprime, au cas ou nous aurions du mal a le recuperer. N'oubliez pas 
d'indiquer votre adresse et votre numero de telephone ! 



bntroteX 




ControleX 



CXDoseiOO*, 



tipple 



LA GESTION DE FICHIERS 
TOUS AZIMUTS. 



Un seul p ro g ramme , une multitude 
d'app lications: CX Base 10(1 est I'outil 
indispensable pour suivre vos clients, vos 
patients, vos commandes, vos fournis- 
seurs, pour gerer votre tresorerie, votre 
documentation, vos articles en stocks, 
pour mettre a jour vos tai ifs, calculer la 
paie de vos employes, etc. 

Un p ro g ramme sim p le et com p let : 

Nul besoin de connaTtre I'informatique; 
definissez vous meme votre modele de 
fichier; vous pourrez, a tout moment, 
sans avoir a reecrire les donnees, ajouter 
ou retrancher des rubriques; classez, 
selectionnez vos fiches de multiples 
facons, par mots cles ou selon une combi- 
naison de criteres tels que "egali' "plus 
grand quel' "plus petit quer "different!" 
"compris entre"; faites toutes sortes de 
calculs; corrigez automatiquement une 
selection de fiches; presentez les infor- 
mations de votre choix sous differentes 
formes (etats, etiquettes) et dans n'im- 
porte quel ordre (alphabetique, numeri- 
que, chronologique),etc. 

•Actuellement en promotion. 

Sicob Boutique N°67 



Un prog ramme p arfaitement mo- 
dulaire: CX Base 100 est un des pro- 
grammes de CX Systeme. Si vos besoins 
evoluent, vous pourrez, a tout moment, 
completer votre programme et, en parti- 
culier, acceder a CX Texte pour un traite- 
ment de texte totalement integre avec vos 
fichiers. 



CX Base 100 est un logiciel frangais deve- 
loppe par Controle X, et presente dans un 
eoffret luxueux avec une documentation 
complete, abondamment illustree. 
Controle X , Tour Maine- Montparnasse, 33, 
avenue du Maine, 75755 Paris. Cedex 15. 
(En Belgique, Neotron, 37, rue de Florence, 
1050 Bruxelles). 



DEMANDE DE 
DOCUMENTATION 



Nom. 



1 Soci6t6_ 
I Adresse. 

I 



Tel.. 
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B y\ferbatim 



DISQUETTES ET MINI DISQUETTES TOUTES CONFIGURATIONS 




- Certification unitaire 100% sans erreur. 

- Duree de vie : 30 millions de revolutions 
(standard de I'lndustrie 3,5 millions de revolutions). 

- Anneau de renforcement en standard sur le 5 1/4 ". 

- 5 1/4 " en 48 et 96 TPI, simple et double face. 



BFI ELECTRONIQUE - 9 RUE YVART - 
75015 PARIS. 
Tel. 533-01-37. 
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Des caracteres geants a l'imprimante 

J.-F. Groussin 



Ce programme permet de generer 
rapidement des caracteres geants sur 
l'imprimante pour, par exemple. 
donner un titre a un listing, un ta- 
bleau... Le principe mis en oeuvre ici 
a ete repris dans le programme 
d'aide au dessin HGR pour dessiner 
des caracteres en haute resolution. 



Analyse du programme 

II commence par demander la lar- 
geur disponible puis affiche la liste 
des caracteres actuellement definis 
(nous verrons plus loin comment on 
peut la modifier). Tous les "caracte- 
res" occupent la largeur de 7 carac- 
teres habituels (1 espace + 5 cases 
+ 1 espace). sauf "I". "1". "." et 
lespace qui en prennent 5. Par 
contre. ils sont tous definis sur une 
hauteur de 7 cases. 

Le programme lit ensuite les DATA 
et les met dans TB%(I,J). Pour cha- 
que caractere. il y a 8 donnees : 

- d'abord. le code ASCII en decimal 
(en 2000. par exemple. on trouve 65 
qui est le code de A) ; 

- puis 7 nombres. un pour chacune 
des 7 lignes de definition du carac- 
tere. 

Ces nombres sont obtenus de la 
fagon suivante : 

Une ligne est constitute de 5 cases 
vides ou pleines. soit ou 1 pour 
chaque case. De la a penser a des 
nombres binaires sur 5 bits (avec bit 
de plus faible poids a droite) il n'y 
avait qu'un pas vite franchi. puisque 
le decodage se fait alors facilement 
au moyen de divisions successives 
par 2. 



Ainsi, le motif <* ***> sera code 
par : 

1x16 + 0x8 + 1x4 + 1x2 + 1 = 23 

La lettre A sera constitute des motifs 
suivants : 



*** 


cod* 


I -i 


< * * > 


c ode 


1 "7 
* •' 


< » * > 


c ode 




( ***** ■ 


c ode 


"I I 


•, * * > 


c ode 


t y 


••'* *.-• 


c ode 


1 "7 

i i 


. * * • 


code 


1 7 



Les DATA doivent evidemment se 
presenter dans le meme ordre que 
celui des ensembles CD$ et CE$ 
(celui-ci venant en dernier et conte- 
nant les caracteres de largeur 5 : 1 
espace + 3 cases + 1 espace). 

On voit done qu'il sera facile a cha- 
cun de developper son propre jeu de 
caracteres (ne pas oublier de modi- 
fier en consequence NC a la ligne 
140 qui contient le nombre total de 
caracteres). 

Le programme demande ensuite le 
titre a imprimer. II verifie que les ca- 
racteres sont effectivement disponi- 
bles et calcule la largeur necessaire 
(nous serons informes si le titre est 
trop long). Ensuite. la sortie peut etre 
dirigee vers l'imprimante ou vers 
l'ecran (ce qui permet de tester sim- 
plement et economiquement de nou- 
veaux caracteres). Le titre est en 
outre precede et suivi de deux lignes 
completes d'etoiles. 

Remarques 

1) Pour une largeur disponible de 80 
caracteres. il faut en fait indiquer 79. 



2) Le programme, tel qu'il est. im- 
prime un caractere en utilisant pour 
chaque case le-dit caractere (ainsi un 
A est dessine avec des A) et le gra- 
phisme n'est pas toujours tres heu- 
reux. On peut alors. soit modifier les 
codes ASCII dans les DATA, soit 
mettre a la ligne 3050 : X$= "* "... 



Principales variables 



LI : largeur d'impression disponible 

NC : nombre de caracteres disponi- 
bles 

CDS : ensemble des caracteres de 
largeur 5 cases 

CES : ensemble des caracteres de 
largeur 3 cases 

TI%(I) : table des caracteres du titre 
(numeros des DATA) 

TB%(1.0) : code ASCII du caractere 
a utiliser pour le dessin du caractere 
geant 

TB%(I.J) : code du Ieme caractere 
de la ligne J 

LT : longueur du titre 

A$ : dernier caractere entre 

NT : nombre de caracteres entres 

FG : rang du caractere dans l'ensem- 
ble 

DE : nombre d'espaces a mettre au 
debut pour le centrage 

L : numero de ligne en cours de trai- 
tement 

V : valeur du code 



Programme CARAC 



5 REM CARACTERES GEANTS A L'IMPRIMANTE 

(APPLESOFT) 

6 REM ==*===s=====x===== ======= 

100 TEXT : HOME : HTAB 11: PRINT "CARAC 

TERES GEANTS": PRINT : INPUT "LAR 

GEUR DISPONIBLE: ";LI 
120 PRINT "CARACTERES EXISTANTS: ";: FO 

R I = 65 TO 90: PRINT CHRS (I);: 
NEXT : FOR I = 48 TO 57: PRINT 

CHRS (I);: NEXT : PRINT " #." 
130 PRINT : PRINT "LARGEUR DES CARACTER 

ES: 7 SAUF 1,1,.,";: INVERSE : PR 



INT "E": NORMAL 
140 NC * 39 : CDS = "ABCDEFGH#JKLMNOPQRSTU 

VWXYZ-23456789":CES = ".II " 
150 DIM TI*<30> ,TBX(NC,7> 
155 POKE 34,7 

160 FOR I = 1 TO NC: FOR J = O TO 7: RE 
AD TBX < I , J ) : NEXT J : NEXT I 

299 REM 

300 REM ENTREE DU TITRE 

301 REM 

310 LT = 0:TIS = "": HOME : VTAB 10: HTA 

B 1: PRINT "TITRE: "; 
320 FOR I ■ 1 TO 30 

330 GET AS: IF AS <* CHRS <13) THEN NT 

= I - 1:1 = 30: GOTO 500 
340 FG = O: FOR K = 1 TO LEN (CDS) 
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350 IF MIDS (CDS,K,1) < > A0 THEN 370 
360 FG = K:K = LEN (CDS) 
370 NEXT K 

380 IF FG < > THEN LT = LT + 7 : PRIN 

T AS;:TIX(I> = FG: GOTO 500 
390 FG = 0: FOR K = 1 TO LEN (CES) 
400 IF MIDS (CES,K,1> < > AS THEN 420 
410 FG = KtK = LEN (CES) 
420 NEXT K 

430 IF FG < > O THEN LT = LT + 5 : PRIN 

T AS;:TIX(I) = FG + 35: GOTO 500 
440 PRINT GOTO 330 

500 NEXT I: PRINT 

510 IF LT > LI THEN PRINT "TITRE TROP 
LONG" : GOSUB 1100: GOTO 
300 

520 DE = INT ((LI - LT) / 2) 

530 INPUT "IMPRIM=I ECRAN=E ";RS: IF R 
S = "I" THEN PRINT CHRS (4)"PR# 
1": PRINT CHRS (9>"80N"; 

540 GOSUB 3000 

550 IF RS = "I" THEN PRINT CHRS (4)"P 
R#0" 

560 GOSUB 1100: GOTO 300 



2030 DATA 77,17,27,21,17,17,17,17,78,17 
,25,21,21,19,17,17,79,14,17,17,17 
,,17,17,14,80,30,17,17,30,16,16,16 

2040 DATA 81,14,17,17,17,21,19,15,82,30 
,17,17,30,20,18,17,83,14,16,16,14 
,1,1,14,84,31,4,4,4,4,4,4 

2050 DATA 85,17,17,17,17,17,17,14,86,17 
,17,17,17,17,10,1,87,21,21,21,21, 
21,21,10,88,17,10,10,4,10,10,17 

2060 DATA 89,17,10,4,4,8,16,16,90,31,1, 
2,4,8,16,31,45,0,0,0,0,31,0,0,50, 
14,17,1,2,4,8,30 

2070 DATA 51,30,1,1,14,1,1,30,52,16,16, 
16,18,31,2,2,53,30,16,16,28,1,1,2 
8,54,14,17,16,30,17,17,14 

2080 DATA 55,31,1,1,14,4,8,16,56,14,17, 
17,14,17,17,14,57,14,17,17,14,1,1 
,14,46,0,0,0,0,6,6,0,73,7,2,2,2,2 
.2,7 

2090 DATA 49,2,6,2,2,2,2,7,32,0,0,0,0,0 
,0,0 

3000 GOSUB 1000 : PRINT 
3010 FOR L ■ 1 TO 7 
3020 IF DE = O THEN 3040 
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999 REM 

1000 REM SORTIE 2 LIGNES D'ETOILES 

1001 REM 

1010 FOR J = 1 TO 2: FOR I = 1 TO LI : P 
RINT "«••;: NEXT I : PRINT : NEXT J 
: RETURN 

1100 VTAB 23: HTAB 1: CALL - 958: PRIN 
T "TAPER UNE TOUCHE ";: GET RS: P 
RINT RS: RETURN 

1500 REM 

1510 REM LES DATA DEFINISSENT LES CARA 

CTERES 
1520 REM 

2000 DATA 65,14,17,17,31,17,17,17,66,3 
0,17,17,30,17,17,30,67,14,17,16,1 
6,16,17,14,68,30,17,17,17,17,17,3 


2010 DATA 69,31,16,16,30,16,16,31,70,31 
,16,16,30,16,16,16,71,14,17,16,19 
,17,17,14,72,17,17,17,31,17,17,17 

2020 DATA 35,10,10,31,10,31,10,10,74,1, 
1,1,1,1,17,14,75,17,17,18,28,18,1 
7,17,76,16,16,16,16,16,16,31 



3030 FOR I = 1 TO DE: PRINT " ";: NEXT 
I 

3040 FOR I - 1 TO NT 

3050 PRINT " ";:XS = CHRS (TBX (TIX ( I ) , 

0)):V = TBX(TIXd) ,L> 
306O IF TIX (I) > 35 THEN 3O90 
3070 IF INT (V / 16) = 1 THEN PRINT X 

S;:V = V - 16: GOTO 3080 
3075 : PRINT " "; 

3080 IF INT (V / 8) = 1 THEN PRINT XS 

; :V = V - 8: GOTO 3090 
3085 : PRINT " M ; 

3090 IF INT (V / 4) =1 THEN PRINT XS 

; :V = V - 4: GOTO 3100 
3095 : PRINT " "; 

3100 IF INT (V / 2) = 1 THEN PRINT XS 

• :v « V - 2: GOTO 3110 
3105 : PRINT " "; 

3110 IF V THEN PRINT XS; : GOTO 3120 
3115 : PRINT " 

3120 PRINT " ";: NEXT I: PRINT : NEXT L 
: PRINT : GOSUB 1000 : RETURN 
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Chargement automatique de 1'Integer 

Jean-Michel Clin 



En essayant d'explorer le DOS 3.3, 
j'ai decouvert qu'il avait sans doute 
ete concu a l'.origine pour etre utilise 
sur Apple II et non sur Apple 11+ ou 
He et que si, ayant besoin du langage 
Applesoft, il ne le trouvait pas en 
ROM ou sur la carte langage. il es- 
sayait automatiquement de le charger 
en RAM. 

Possedant pour ma part, et comme 
beaucoup. un Apple 11+ , j'ai adapte 
les routines correspondantes pour 
obtenir un chargement automatique 
du BASIC Entier dans la carte lan- 
gage quand la necessite s'en fait sen- 
tir. 

Si le BASIC Entier est deja charge 
dans la carte, tout se passe normale- 
ment. 

S'il ne Test pas, on peut utiliser les 
instructions suivantes : 

- INT : le BASIC Entier est charge 
automatiquement, mais Ton reste 
provisoirement en Applesoft jusqu'au 
INT suivant. 

- LOAD PROG (ou PROG est le 
nom d'un programme en BASIC En- 
tier) : le BASIC est charge automati- 
quement avant le programme. 

- RUN PROG : le BASIC Entier est 
charge automatiquement, puis le pro- 
gramme est charge a son tour et exe- 
cute. 

Ceci suppose bien entendu que le fi- 
chier "BASIC Entier" soit present sur 
la disquette. Dans le cas contraire, le 
message classique "LANGUAGE 
NOT AVAILABLE" sera envoye. 

II n'y a done plus a se preoccuper de 
charger a l'avance le BASIC Entier 
et, du point de vue de l'utilisateur, il 
n'y a plus de difference de manipula- 
tion des differents programmes en 
fonction du langage. On peut notam- 
ment, sans autre precaution, "boo- 
ter" sur un programme d'acceuil 
(HELLO) en BASIC Entier. 

Concretement, les operations a effec- 
tuer sont les suivantes : 

a) Modifier le fichier INTBASIC 
fourni avec la disquette SYSTEM 
MASTER pour qu'il se charge a son 
adresse d'execution (ce qui, curieuse- 
ment, n'est pas le cas d'origine ! ). 
Pour cela, il suffit de charger norma- 
lement le BASIC Entier (en "boo- 
tant" sur la disquette Master par 



exemple) et de taper, depuis ce lan- 
gage (apres INT) : 

BSAVE ENTBASIC,A$D000.L$3000 

(ENTBASIC est le nouveau nom que 
j'ai donne a ce fichier pour le distin- 
guer de 1'ancien). 

b) Effectuer les modifications suivan- 
tes en mode moniteur (apres avoir 
tape CALL -151) : 

9D4A:9D A5 79 

9DF0:EA BA EA EA EA EA EA EA EA EA 

A4BD:D0 

A4D6:EE 

A506;AD 81 CO AD 31 CO 4C 5D A3 00 
A57Bi20 20 B2 A5 F0 2? A? 40 " 
A59C:06 A5 A9 4C 20 B2 A5 F0 OA 
AAB8:C5 CE 04 C2 CI D3 C9 C3 AO 
300G pour revenir au BASIC. 

Les valeurs ci-dessus correspondent 
a un DOS installe dans 48K. Pour 
obtenir une disquette contenant ce 
DOS modifie. il suffit de l'initialiser 
apres les avoir introduites. Vous pou- 
vez egalement utiliser le petit pro- 
gramme d'acces direct a la disquette 
presente dans ce numero pour trans- 
former le DOS sur une disquette deja 
initialisee. en recopiant sur les sec- 
teurs concernes les pages memoire 
modifiees (cf. ci-dessous). 

Par contre. si Ton veut modifier di- 
rectement une disquette mere (copie 
de la disquette System Master, ou 
disquette initialisee avec le meme 
DOS que cette derniere). il faut dimi- 
nuer les valeurs soulignees de 80. Le 
relogeur du DOS les retablira auto- 
matiquement a leurs valeurs d'utilisa- 
tion. Pour realiser cette operation 
avec un programme d'acces direct, il 
faut charger les secteurs en memoire 
a leurs adresses reelles (avant inter- 
vention du relogeur), soit 1D00. 
2400, 2500. 2A00. puis faire les mo- 
difications et recopier les secteurs a 
partir de ces memes adresses. 

Pour memoire, void les pistes et sec- 
teurs concernes : 



Paoe nfooire 
finale 

9D 
A4 
A5 
AA 



Piste Secteur 



01 
01 
01 



Je signale a ceux qui ne le savent 
pas (et la documentation est extre- 
mement discrete sur ce point) que le 
fichier INTBASIC (et done ENTBA- 
SIC) contient, outre le BASIC En- 
tier : 

• Le mini-assembleur 

• Sweet- 16 

• Les routines de calcul en virgule 
flottante utilisables depuis le 
BASIC Entier 

• Tout le Programmer's Aid # 1" 
(utilitaires de complement au 
BASIC Entier) : 

Renumber 
Append 

Tape Verify (BASIC) 
Tape Verify (binaire) 
Relogeur de prog, binaire 
Testeur de RAM 
Routines de musique 
Routines de dessin HGR 

Je serais en revanche curieux de sa- 
voir ce qui se trouve dans la zone 
$D800-$D8FF ! 

Par ailleurs, j'ai beaucoup apprecie le 
"patch" propose dans le numero 2 
de Pom's permettant d'afficher a 
chaque CATALOG le nombre de 
secteurs encore libres sur une dis- 
quette. 

J'ai toutefois regrette qu'il supprime 
la fonction INIT du DOS et vous en 
propose ci-dessous une adaptation 
qui evite cet inconvenient : 

ADC3:20 49 Eft 

6A69:A2 OC 20 4A F9 A9 00 85 40 85 

~ 41 AO C8 18 B9 F2 B3 F0 OE OA 

90 FB 48 E6 4C DO 02 £6 4! 68 

18 90 FO 88 DO E? A9 A8 20 ED 

FD 4C OF BC 00 

BCDF;A6 40 A5 41 AC 00 E0 CO 20 DO 

06 20 IB E5 18 90 03 20 24 ED 

A9 A9 20 ED FD 20 2F AE 60 00 



Ici encore, le "patch" est donne pour 
un DOS installe dans 48K. II faut di- 
minuer les valeurs soulignees de $80 
pour 16K et de $40 pour 32K. 

Si la modification doit etre faite sur 
une disquette mere, il ne suffit plus 
de proceder comme pour un 16K. 
car on a utilise ici des zones qui ne 
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sont pas modifiees normalement par 
le relogeur du DOS. Ce dernier doit 
done etre adapte de la fagon sui- 
vante : 

1C68 : A8 3F 

1C6E : 69 3A 96 3A 



VENE2 DECOUVRIR 

ROBO 

UNE NOUVELLE 

APPROCHE 
DES PROBLEMES 
GRAPHIQUES 

Enfin... un veritable systeme concu pour le Dessin Assiste 
sur Ordinateur personnel APPLE II pour tracer vos plans, 
schemas, diagrammes, figures, avec sortie sur table tracante au 
format A4, A3, AO. 

MINIGRAPHE se tient a votre disposition 
pour une demonstration des multiples possibility du systeme 
ROBOGRAPHICS. 

Appelez nous au 608-44-31 pour prendre rendez-vous. 



/to? 



[cippkz 

Concessionnaire agr££ 



Les pistes.'secteurs concernes sont : 
Page m^rsoi re Piste Secteur 



AD 
BA 
BC 

1C 



01 
00 
00 



c 

4 

6 

B (relogeur) 



(Memes remarques que precedem- 
ment pour le mode operatoire avec 
un programme d'acces direct aux 
disquettes) 



Abonnez-vous a Pom's 



La vie de votre revue depend de 
son nombre d'abonnes. Plus vous 
etes nombreux, plus nous pou- 
vons vous rendre service, par 
1'augmentation correspondante de 
nos moyens comme par le plus 
grand nombre de contributions 
que nous recevrons forcement de 
vous. Nous avons volontairement 
choisi une politique de disquettes 
a bon marche ; ainsi, lorsque vous 
vous abonnez avec disquettes, 
chaque disquette vous revient a 
moins de 50 francs TTC, port 
compris ! Un abonnement a qua- 
be numeros coQte aujourd'hui 
325 francs. Cela ne sera-t-il pas 
largement amorti si une seule 
des 200 pages de texte que vous 
trouverez en quatre numeros vous 
resoud ce probleme sur lequel 
vous sechez (on a vite fait de per- 
dre deux ou trois jours sur un pro- 
bleme) ? 

Dans de nombreux numeros, 
nous vous avons offert des pro- 
grammes comparables a ceux qui 
sont vendus de 250 is 500 francs 
dans les boutiques. Profitez-en 1 



MINIGRAPHE 

MICROINFORMATIQUE 

263, Boulevard Jean-Jaures, 92100 Boulogne 
Tel. 608.44.31 
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Decisionnel Graphique a l'essai 

Guy Lapautre 



Decisionnel Graphique est un editeur 
graphique realise et vendu par ADDE 
Marketing 2312 FF TTC. II se pre- 
sente avec une documentation en 
classeur (comme tous les produits re- 
cents), deux disquettes de travail 
"CREATION-M.A.J." et "VISUALI- 
SATION" et une disquette de de- 
monstration et d'apprentissage bapti- 
see "VISITE GUIDEE". 

II est destine a visualiser des series de 
donnees chronologiques sous forme 
de courbes, diagrammes et histo- 
grammes. 

11 necessite un APPLE II ou APPLE lie 
de 48K minimum, avec deux lecteurs 
de disques souples et une impri- 
mante graphique. Les imprimantes 
prevues d'origine sont 1' Epson avec 
carte Epson, la Seikosha avec carte 
Seiko et differents modeles avec 
carte MID.P2. 

Mode d' analyse 

Nous evaluons les avantages et in- 
convenients de Decisionnel Graphi- 
que - appelons-le DG - en fonction 
de ce qu'un utilisateur est en droit 
d'attendre d'un editeur graphique, 
avec parfois reference implicite ou 
explicite a d'autres logiciels de meme 
objectif. lis sont presentes sous 8 
tetes de chapitres : 

1. Approche du logiciel 

2. La gestion des donnees 

3. Manipulation des donnees 

4. Le trace des graphiques 

5. Les fonctions auxiliaires 

6. L'edition sur imprimante 

7. UBlitaires : gestion des disques, 
liaisons externes 

8. Documentation 

Un tableau final precise les comparai- 
sons entre les fonctionnalites de DG 
et d'autres editeurs graphiques. 



1. Approche du logiciel 

L'abord du logiciel est assez aise, et 
la disquette "VISITE GUIDEE" est 
une tres bonne idee. Les comman- 
des sont clairement expliquees, ce 
qui fait qu'on se passe aisement 
d'une fonction "AU SECOURS". 



On peut toutefois regretter deux op- 
tions prises par les auteurs : 

• le mouvement du curseur par 
CTRL I.J.K.M 

• la designation esoterique des 
series par 6 lettres 



Avantages : Simplicity d'emploi - 
Separation des fonctions d' entree de 
donnees et de trace - Choix 
commode dans une ligne de 
commande. 

Inconvenients : Obligation d'utiliser 
2 disques-programme - Temps relati- 
vement long entre 2 options - Quel- 
ques manoeuvres peu "conviviales" - 
Usage frequent, voire abusif. des 
abreviations. 

Synthese : DG a ses avantages et 
ses inconvenients, comme chaque lo- 
giciel. Aucun point negatif ne merite 
d'etre mis en exergue. Au credit de 
DG, l'idee de la "VISITE GUIDEE". 

2. Gestion des donnees 

On peut parler de professionnalisme 
a ce niveau : structuration de la 
"Base de Donnees" avant tout travail 
de creation, fonctions de creation et 
mise a jour explicites, series de don- 
nees coordonnees entre elles, mot de 
passe pour proteger une disquette 
(ce qui est trap rare en micro-infor- 
matique). 

De meme, la possibility de reutiliser 
une structure existante. en la modi- 
fiant ou non, est interessante. 

On regrettera parfois que le logiciel 
soit exclusivement tourne vers la re- 
presentation de series chronologi- 
ques, ce qui conduira a des ambigui'- 
tes de langage quand on voudra 
representer d'autres types de series 
(ce "reproche" pourrait d'ailleurs 
s'adresser a bien d'autres editeurs 
graphiques). 

Avantages : "Solidite" du systeme 
de gestion des donnees - Structura- 
tion de la base - Protection par mot 
de passe - Bon traitement des dates 
(depart, periodicite,...). 

Inconvenients : Systeme parfois un 
peu lourd a manier - Trap d'accent 
mis sur la chronologic 



Synthese : La gestion des donnees 
est le point fort de DG, par rapport a 
ses concurrents. On pourra parfois 
regretter une certaine lourdeur, mais 
c'est le prix qu'il faut payer pour as- 
surer un bon niveau de securite. 

A ce titre, DG apparalt comme un 
peu plus qu'un simple editeur graphi- 
que. en remplissant une partie des 
fonctions normalement devolues a 
un logiciel de gestion de fichiers. 
C'est ce qui le distingue principale- 
ment des autres traceurs de graphes. 



3. Manipulation des 
donnees 

Nous entendons sous ce titre la pos- 
sibilite d'effectuer des calculs sur les 
valeurs d'une serie de donnees ou 
de combiner plusieurs series, de 
fagon a obtenir de nouvelles series, 
elles-memes susceptJbles de repre- 
sentation graphique (voire de servir 
de base pour de nouveaux calculs). 

DG possede quelques fonctions pre- 
programmees interessantes (cumul. 
taux de croissance, indice base 100, 
moyenne mobile) 

II ne possede en revanche, malgre 
son sous-titre "gestion graphique de 
base de donnees statistiques", au- 
cune fonction statistique eyoluee. 

Avantages : Manipulation aisee des 
fonctions preprogrammees - Variete 
des possibilites de leur emploi-Pro- 
grammation d' operations arithmeti- 
ques sur une serie ou entre plusieurs 
series. 

Inconvenients : Aucun outil statisti- 
que fin, done ni lissage ni ajustement 
- Pas d'operations autres qu'arithme- 
tiques. 

Synthese - Sans etre d'une faiblesse 
criante, DG souffre, en comparaison 
avec d'autres editeurs graphiques 
classiques, de l'absence totale d' outil 
statistique approfondi. II ne permet 
done pas de faire des etudes de ten- 
dance ou des projections. 

Cette lacune est d'autant plus ge- 
nante qu'on peut etre alleche par 
l'apparence statistique donnee au 
produit. j usque dans son sous-titre. 
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4. Trace des graphiques 

La palette offerte comprend le trace 
de lignes, de diagrammes a barres et 
d'histogrammes. II est possible de 
travailler sur plusieurs series de don- 
nees simultanement, ou sur une par- 
tie seulement des series. 

II manque le trace de diagrammes 
circulaires (communement denom- 
mes "camemberts"). 

L'appel des series a representer ne 
se fait pas en clair, mais par code a 6 
lettres, certes rapide a former (d'au- 
tant qu'on peut encore le compri- 
mer), mais beaucoup moins facile a 
interpreter et a memoriser. 

Avantages : Traces rapides, super- 
positions aisees - Appel rapide. 
quand on est tres familier avec le 
systeme complexe d'abreviations. 

Inconvenients : Esoterisme des de- 
signations - Absence tres ennuyeuse 
de diagrammes circulaires. 

Synthese : Les principaux concur- 
rents de DG component une option 
diagrammes circulaires, que la pre- 
sence d'une fonction histogramme ne 
suffit pas a remplacer (cette option 
existe d'ailleurs dans la version ecrite 
pour Sirius/ Victor et IBM PC). 

Le systeme des abreviations codees 
pour designer les series plaira a cer- 
tains, d'esprit tres "informaticien", 
mais risque de rebuter le gestionnaire 
habitue a parler son propre langage. 



5. Les fonctions 
auxiliaires 



Ce sont les fonctions dont la pre- 
sence permet de modifier les repre- 
sentations, de les agrementer. de les 
commenter, etc. 

On trouve dans DG des fonctions de 
changement d'echelle sur les deux 
axes, permettant la realisation d'une 
astucieuse fonction "zoom", peu 
courante sur les logiciels de ce type 
(qui ont plutot tendance a refuser un 
changement d'echelle ne permettant 
pas une representation complete des 
series etudiees). 

En revanche, une lacune tres grave 
est l'absence de fonction titrage, sur- 
tout combinee a 1' esoterisme signale 
precedemment pour la designation 
des series. 

Avantages : Changements d'echelle 
commodes - Fonction "zoom". 



Inconvenients : Pas de titre - Pas 
d'option couleurs - Une seule fenetre 
sur l'ecran. 

Synthese : DG se revele particulie- 
rement pauvre dans ce domaine, 
meme en comparaison avec des logi- 
ciels apparemment moins ambitieux. 

L'absence de possibility de titrage est 
meme tres genante, et suffira sans 
doute a eloigner de nombreux utilisa- 
teurs (cette possibility existe dans la 
version SiriusA/ictor et IBM PC). 

6. Edition sur 
imprimante 

II est possible d'imprimer, d'une part 
des tableaux de chiffres. d' autre part 
des graphiques, et ce en simple ou 
double dimension. 

Un choix d'imprimantes est propose 
en standard, avec une large place ac- 
cordee aux imprimantes graphiques 
fonctdonnant avec la carte MID.P2. 
Tout permet de penser que les au- 
teurs mettront un point d'honneur a 
ajouter a cette liste l'imprimante ma- 
tricielle Apple avec sa carte graphi- 
que. 

L'utilisation d'autres imprimantes 
pose un probleme complexe de pa- 
rametrage. Empressons-nous de dire 
que cette complexity n'est nullement 
speciale a DG. 

Avantages : Deux possibilites de di- 
mensions d'impression (ce qui est ex- 
ceptionnel) - Un honnete choix d'im- 
primantes preparametrees. 

Inconvenients : Absence de titres - 
Parametrage peu simple d'impriman- 
tes non prevues (mais pas plus 
qu'avec d'autres logiciels). 

Synthese : L'impossibilite, dans 
l'utilisation en base de donnees (et 
non pour les series manuelles), de ti- 
trer les graphiques est particuliere- 
ment ennuyeuse des qu'on imprime 
ces graphiques. Si, en effet, au mo- 
ment ou Ton travaille sur ecran, il est 
relativement facile de savoir que 
PAFRRN represents les ventes hors 
taxes du Produit A. en FRance, Re- 
gion Nord. et PAEXAN les ventes du 
meme produit, a l'exportation en 
Afrique du Nord, selon les donnees 
connues au jour de l'etablissement 
du graphique, trois mois apres, au 
milieu d'une collection de graphes... 



7. Utilitaires 

Nous avons deja signale des temps 
de transit relativement importants 



entre les options des programmes. 
Nous avons aussi souligne la security 
dans la gestion des donnees. Ajou- 
tons la possibility de meler des infor- 
mations en provenance de plusieurs 
disquettes. 

Par ailleurs, DG permet. tres commo- 
dement, l'accueil de donnees en pro- 
venance de Visicalc ou de Multiplan 
(sous reserve bien entendu d'avoir 
pris quelques precautions elementai- 
res au moment de la confection des 
tableaux). 

Avantages : Systeme ouvert a deux 
"tableurs" tres connus - Security 
poussee dans la gestion des donnees 
sur disque. 

Inconvenients : Quelques temps 
d'attente, utilisation de deux disques 
pour les programmes - Absence 
d'une option permettant de sauve- 
garder des graphiques sur disque. 

Synthese : Les avantages l'empor- 
tent ici tres nettement sur des incon- 
venients somme toute mineurs. II ne 
devrait pas etre trop difficile pour les 
concepteurs d' ajouter une option de 
sauvegarde de graphiques. Ceci au- 
rait 1'avantage de permettre une im- 
pression differee (et a cette occasion 
de TITRER le travail execute !). 



8. Documentation 

La documentation, en frangais, 
comporte deux parties distinctes. 

La premiere. Visite Guidee, permet 
de suivre la demonstration proposee 
par la disquette correspondante, et 
de se familiariser avec la majeure 
partie des commandes courantes. 
Nous avons eu F occasion de lire 
dans la presse que cela prenait envi- 
ron trois quarts d'heure. Oui, pour ce 
qui est de survoler. Non, pour ce qui 
est d'apprendre. Heureusement! II 
n'existe pas de logiciel serieux qu'on 
puisse apprendre en trois quarts 
d'heure. 

La seconde est classiquement pre- 
sentee par fonctions. 



Avantages : Frangais de bonne qua- 
lity - Visite guidee bien pratique pour 
une premiere familiarisation - Ni er- 
reur. ni lacunes graves (en tous cas, 
nous n'en avons pas trouve). 

Inconvenients : Presentation un 
peu austSre (par rapport a des 
concurrents U.S.) - Absence d'un ta- 
bleau synoptique. 
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Designation des abscisses : 
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Designation des series : 










Noms en clair 
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Noms codes 
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Manipulation des series 










de donnees 










Interpolation : 










Arithmetique 
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Geometnque 
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Ajustements divers 
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Cumul 
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Taux de croissance 
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Moyenne mobile 
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Ajustements : 










Droite de regression 
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Logarithmique, parabolique 










sinusoidal 




* 






Operations sur une serie : 
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Operations entre series : 
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Types de qraphiques : 










Lignes 
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Barres verticales 
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Barres horizontales 
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Histogrammes 
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Circulaires (« camemberts ») 
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f(x,y) 
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Synthese - Pas de critique fonda- 
mentale - Pas de louanges excessives 
non plus. 



Conclusion 

Premier outil d'aide a la decision gra- 
phique franqais. DG est seduisant par 
bien des cotes, mais certaines fonc- 
tionnalites lui manquent cruellement. 



Parmi ses faiblesses : L'absence 
d'une fonction de trace de diagram- 
mes circulaires - L'absence de toute 
possibility de titrage des graphiques - 
Le manque de fonctions statistiques. 

et, a un moindre titre : L'esote- 
risme de la designation des series - 
Quelques temps d'attente entre op- 
tions - L' impossibility de sauvegarder 
des graphiques sur disque. 

Parmi ses forces : Un systeme 
"professionnel" de gestion des don- 
nees - Un apprentissage rapide des 
principals options avec la "visite gui- 
dee" - Des fonctions interessantes de 
manipulation de series (hors statisti- 
ques) - L' accueil aise de series exo- 
genes (Visicalc, Multiplan). 

et, a un moindre titre : D'habiles 
options de changement d'echelles-Un 
jeu convenable d'imprimantes prepa- 
rametrees (auquel les laureats de la 
"Pomme d'Or" auront a coeur 
d'ajouter l'imprimante matricielle 
Apple). 

DG est un logiciel agreable a utiliser 
dans ('ensemble, meme si I on est 
parfois enerve par le mode de desi- 
gnation des series ou certains mou- 
vements du curseur par touches de 
controle. 

On sera seduit par la qualite de son 
systeme de gestion de donnees, mais 
dequ par l'absence de certaines fonc- 
tionnalites qu'on est maintenant ha- 
bitue a rencontrer dans les editeurs 
graphiques. 

II est possible a notre avis de se fami- 
liariser avec les principales comman- 
des du logiciel en moins d'une demi- 
journee, quelques heures de pratique 
etant ensuite necessaires pour mattri- 
ser les differentes options. 



Pour les utilisateurs d'Apple lie : 

ATTENTION a la touche "CAPS 
LOCK", qui doit toujours etre enfon- 
cee : dans le cas contraire, le logiciel 
"ne comprend rien", refuse toute en- 
tree sur la ligne reservee, ne previent 
pas et se bloque totalement. 



fc«*t»*d v» ****** «««mmMw 
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Modification des echelles 
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Effet de « zoom » 
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Impression des graphes : 










Dimension normale 
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Grande dimension 
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(1) Dans la version 7.0 
Remarques de synthese 

Visiplot est en general bien place, 
sans grandes lacunes. II permet en 
particulier des calculs tres varies sur 
les series (a condition d'etre accom- 
pagne de VISITREND). 
Ses options graphiques et de titrage 
sont tres satisfaisantes. 

Business Graphics est le plus 
complet. 



On pourra parfois regretter qu'il ne 
« connaisse » que les quatre opera- 
tions au niveau de la manipulation 
des series. 

PFS Graph est un outil beaucoup 
plus modeste, cree surtout pour re- 
presenter les series issues de PFS 
FILE. 

II possede neanmoins d' utiles possibi- 
lity de traces autres. 



Commentaires de ADDE 
Marketing 

La version 7 est disponible sur Apple 
depuis la mi-novembre. Le pro- 
gramme se presente maintenant sous 
la forme d'une disquette unique reu- 
nissant "CREATION-M.-A.-J." et 
"VISUALISATION". La version 7 
comprend la fonction Ecriture qui 
permet d'ecrire, en normal ou in- 
verse, des commentaires sur toutes 
les formes de representation graphi- 
ques. Ces commentaires sont depla- 
cables en tout point de 1'ecran. 

Les possesseurs d'anciennes versions 
peuvent beneficier, contre un regle- 
ment de 350 F HT accompagne de 
la preuve d'achat du logiciel, de la 
version 7 : ils recevront alors en 
echange la nouvelle disquette pro- 
gramme et le supplement de docu- 
mentation. 



On regrettera qu'il n'y ait guere de 
possibilites de manipulation des 
series. 

Decisionnel Graphique trouve son 
principal point fort dans une gestion 
« professionnelle » des donnees. On 
regrettera principalement I' absence 
d'une option de graphique circulaire, 
et peut-etre plus encore 1'absence de 
titres (dans les versions anterieures a 
la recente version 7.0) 



logmo 

Une informatique de gestion adaptee aux besoins des gestionnaires et realisee par des gestionnaires. 



SEMINAIRES 
INTERNES SUR 
APPLE ET IBM PC 



formation et conseil sur 1'utilisation de tableurs : utili- 
sation de base et utilisation avancee 

analyse des tableaux concus dans 1'entreprise et 
conseils pour ('amelioration de ces tableaux 
transfert de fichiers et communication entre Apple et 
IBM PC 

lien entre Applewriter et des equipements de photo- 
composition 



SEMINAIRES • formation a la micro-informatique de gestion 

INTERNES ANIMES • utilisation de Multlplan Apple et IBM PC 

p^j^ • expertise sur 1 utilisation de tableurs 

HERVE THIRIEZ : 



iogmct 



s.a. - 12, rue d'Anjou - 78000 Versailles - Tel. : (3) 951.24.43 
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INPUT generalise de tableaux 

Gerard Michel 



Dans le numero 6 de Pom's, nous 
vous avions propose une petite rou- 
tine-assembleur d' INPUT generalise 
assurant le controle des saisies-clavier 
caractere par caractere, en fonction 
du type de donnee attendu (alpha- 
numerique, numerique ou date). 

Dans cette version initiale, le passage 
des parametres (tabulation, longueur 
de la donnee...) et 1' affectation des 
valeurs entrees aux variables etaient 
realises au niveau du BASIC par des 
instructions PEEK et POKE. De 
meme, la gestion de l'ecran dans son 
ensemble (saisie d'un tableau de va- 
riables alphanumeriques, passage a 
l'indice suivant ou a l'indice prece- 
dent...) relevait d'une boucle des- 
tructions BASIC. 

La routine presentee ci-apres s'arti- 
cule autour du meme sous-pro- 
gramme d' analyse de caracteres, 
mais elle s'appelle directement au 
moyen de "&" et permet la saisie 
complete de tableaux de variables, 
avec manipulation des indices, ainsi 
que 1' affectation immediate des va- 
leurs a ces variables. 



Principes d'utilisation 

Lorsque vous concevez votre pro- 
gramme, vous etes amene a definir 
les differentes donnees qui seront en- 
trees au clavier, les variables corres- 
pondantes, et la facon dont se pre- 
sentera l'ecran au moment de la 
saisie. Par exemple, vous prevoyez 
un nom de 30 caracteres a la co- 
lonne 5 de la ligne 4, un prenom de 
20 caracteres a la colonne 10 de la 
ligne 6, l'age sur 2 chiffres a la co- 
lonne 5 de la ligne 8 ... Vous pouvez 
ainsi definir, pour chacun de vos 
ecrans de saisie, un tableau de para- 
metres et une variable dimensionnee 
(1 seule dimension autorisee ici) "re- 
ceptrice" des entrees. 

Le programme Applesoft CRETAB a 
pour but de preparer et de memori- 
ser 1' ensemble de ces tableaux pour 
une application donnee. U vous de- 
mandera pour chacun : 

• le nom de la "variable-tableau" 
(une seule lettre) 

• le nombre de variables (ou d'indi- 
ces) dans ce tableau 

• pour chacune de ces variables : le 
type (1 pour alphanumerique, 2 
pour numerique et 3 pour une 



date), la longueur maximale auto- 
risee, le VTAB (compte a partir de 
0) et le HTAB (compte a partir de 
0). 

Ce descriptif de l'ensemble des 
ecrans de votre application sera en- 
suite sauve sous un nom qu'il vous 
appartient de choisir et vous pourrez 
le charger ulterieurement par un 
BLOAD pour l'utiliser dans votre 
programme. 

Supposons ainsi que l'un de vos ta- 
bleaux soit baptise Z et qu'il 
comporte 6 variables (ou indices). 
Dans le programme, I' instruction &IZ 
aura pour consequence la saisie 
(avec tabulation, controle de type et 
de longueur) de 6 donnees que vous 
retrouverez ensuite en Z$(0), Z$(l) 
... Z$(5). Les autres instructions pos- 
sibles sont : 

&PZ : affiche le contenu des varia- 
bles (toujours avec la meme tabula- 
tion) 

&MZ : modification des variables 

&EZ : efface les valeurs affichees, 
sans affecter le reste de l'ecran. 

Le RETURN permet de passer a la 
variable suivante, et ce jusqu'a la fin 
du tableau en cours (en modification, 
un RETURN en premiere position re- 
vient a reprendre la valeur affichee). 
La touche ESC, tapee en premiere 
position sur une zone de saisie, per- 
met de remonter a la variable prece- 
dente; s'il s'agit de la toute premiere 
variable, ESC provoque une sortie 
de la procedure "&". 

Quelques details... 

Le descriptif des tableaux est 
"POKe" en memoire par CRETAB a 
partir d'une adresse qu'il vous pre- 
cise en fin de traitement pour que 
vous puissiez l'utiliser dans votre pro- 
gramme et notamment fixer votre 
H1MEM. II se presente sous la forme 
suivante (avec AO = adresse de 
debut) : 

• AO : code ASCII de la lettre defi- 
nissant le premier tableau 

• A0+1 : nombre d' elements dans 
ce tableau 

• AO+2 et AO+3 : nombre d' octets 
occupes par ce tableau a partir de 
AO, sous forme octet bas-octet 
haut (soit N ce nombre) 



• pour chaque element du tableau, 
4 octets pour definir type, lon- 
gueur, VTAB et HTAB 

• A0+N : lettre definissant le ta- 
bleau suivant s'il existe, et ainsi de 
suite. 

Par ailleurs, nous n'avons pas utilise 
la procedure de 1' Applesoft pour la 
recherche d'une variable dimension- 
nee dont on connait le nom, mais 
une petite sous-routine qui 
commence en S2 dans la liste du 
programme-source IG. II peut done 
etre utile de donner ici quelques pre- 
cisions sur la facon dont 1' Applesoft 
stocke les tableaux de variables. 

L'instruction DIM ZZ$(x) sera memo- 
risee de la facon suivante dans la 
zone des tableaux de l'Applesoft : 

- code ASCII de Z 

- code ASCII de Z augmente de $80 
(pour les variables alphanumeriques, 
le code ASCII de la deuxieme lettre 
du nom est toujours augmente de 
$80) 

- nombre d'octets occupes par le ta- 
bleau (ce nombre est sous la forme 
octet bas-octet haut) 

- nombre de dimensions, soit 1 dans 
notre exemple 

- nombre d'elements dans cette di- 
mension, soit x+ 1 

- ensuite, 3 octets pour chaque ele- 
ment, ou seront stockees : 

. la longueur de la chaine de caracte- 
res associee a la variable 

. 1' adresse de cette chaine (sous 
forme octet bas-octet haut) 

Pour retrouver une variable d'apres 
son nom, on se place done au debut 
de la zone des tableaux dont 
l'adresse AO est donnee en $6B-$6C 
et on regarde si les valeurs contenues 
en AO et A0+1 correspondent au 
nom de la variable. Si ce n'est pas le 
cas, on ajoute a AO le nombre qui se 
trouve en A0+ 2 / A0+ 3 et on re- 
commence... 



Remarques pratiques 

1) Par souci de simplification, le pro- 
gramme CRETAB presente ici est re- 
duit a sa plus simple expression. En 
particulier, il ne controle pas si la let- 
tre (nom de variable) affectee a un 
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tableau n'a pas deja ete utilisee. II 
vous appartient done de rajouter ce 
controle, ou de prendre un minimum 
de precautions lorsque vous affectez 
les noms de variables. 

Par ailleurs, en modification des pa- 
rametres entres initialement pour un 
descriptif de tableaux, la fin du des- 
criptif ne sera pas testee. Si vous 
allez au-dela du dernier tableau, le 
programme affichera un tableau sans 
lettre; repondez alors O aux deux 
questions (OK? et F1NI?) pour ache- 
ver la procedure. 



2) En plagant directement les chatnes 
de caracteres sous H1MEM dans la 
routine (sans utiliser la procedure 
correspondante de 1' Applesoft), on 
court-circuite le controle opere sur la 
place disponible par FRE(O). En re- 
vanche, nous employons la routine 
de "Garbage" presentee dans le nu- 
mero 2 de Pom's (version avec test 
sur la place disponible. baptisee 
FRE(2) dans le programme de de- 
monstration ci-apres), appelee par 
JSR FRE a la fin de la saisie d'un 
tableau. 

Si vous avez egare votre Pom's No 
2, ou si vous n'avez pas la disquette 



du present numero, vous devez sup- 
primer tous les JSR FRE dans la rou- 
tine de saisie et ne pas omettre dans 
vos programmes d'application des 
FRE(O) periodiques (vous pouvez 
aussi remplacer l'adresse de notre 
FRE ($927C) par celle du FRE de 
l'Applesoft ($E484) au sein de la 
routine elle-meme). 

3) L'adresse de debut du descriptif 
des tableaux doit toujours etre sto- 
ckee en 37191 et 37192 avant tout 
appel a la routine pour les tableaux 
correspondants (cf. ligne 30 du pro- 
gramme de demonstration). Si un 
meme programme utilise plusieurs 
descriptifs, leurs adresses respectives 
devront etre stockees alternativement 
en 37191 et 37192 a chaque chan- 
gement du descriptif en cours de trai- 
tement. 

Far ailleurs, n'oubliez pas de definir 
la DIM de vos tableaux avant leur 
traitement (meme si elle est inferieure 
a 10), pour que la routine puisse les 
trouver dans la zone des tableaux de 
l'Applesoft. 



4) Les differentes adresses "base" 
definies (36000 pour la fin des des- 



criptifs, 37191-37192 pour l'adresse 
de leur debut...) tiennent compte de 
1' implantation d'autres routines que 
Pom's vous presentera peut-etre pro- 
chainement. Vous pouvez bien sur 
les modifier (n'oubliez pas la mise a 
jour des programmes) pour une meil- 
leure utilisation de la memoire. 

5) Dans le programme DEMO.IG, 
IG1 et IG2 sont deux masques de 
saisie (cf. Pom's No 7) utilises pour 
des raisons de presentation. Si vous 
ne possedez pas la disquette du pre- 
sent numero, supprimez toutes les 
instructions BLOAD IG1 et BLOAD 
IG2 avant d' utiliser le programme 
(vous pouvez aussi vous creer deux 
masques IG1 et IG2 de votre choix 
avec le programme GESMASK de 
Pom's 7). 

De meme, si vous ne possedez pas 
cette disquette, il vous faudra egale- 
ment creer votre propre descriptif de 
tableaux DEMO au moyen du pro- 
gramme CRETAB, avant de lancer 
DEMO.IG. 

Enfin, precisons que les fichiers Fl et 
F2 ne sont utilises ici que pour illus- 
trer le transfert correct des valeurs 
des variables entre la routine d' IN- 
PUT, le BASIC et le DOS. 



Programme CRETAB 



5 REM CREATION DE TABLEAUX DE 

6 REM VARIABLES (APPLESOFT) 

7 REM ======================= 

10 HIMEM: 25000 
15 TEXT : HOME 

17 INPUT "1-CREATION 2-M0DIFICATI0N 

";C: PRINT : PRINT : IF C < 1 OR 
C > 2 THEN 17 

18 DD = 36000 :L0 =0: IF C = 2 THEN 200: 

REM LE DESCRIPTIF DESCEND A PAR 

TIR DE L'ADRESSE 36000 
20 INPUT "NOMBRE DE TABLEAUX : ";NV: IN 

PUT "DIMENSION MAXIMALE : " ; DM : P 

RINT : IF NV > 10 THEN 20 
30 DM = 4 « (DM + 1>: DIM VX(10,DM): REM 
LE TABLEAU VX RECOIT LES INFORM 

ATIONS QUI SERONT POKEES EN FIN D 

E TRAITEMENT 
40 NT * 0:TT = 1 

50 TEXT : HOME : PRINT "TABLEAU "TT: PR 
INT : POKE 34,2: INPUT "LETTRE : 
";LS: INPUT "NOMBRE DE VARIABLES 
: ";NI:N0 = 4 « (NI ♦ 1):NT = NT 
♦ no: PRINT 

60 VX(TT,0> = ASC (LS) :VX(TT,1) = NI:VX 
(TT,2) = NO: POKE 34,5: FOR 1=1 
TO NItX = (4 « I) - l: HOME 

70 PRINT : PRINT "VARIABLE "I: PRINT : 
INPUT "TYPE : ";VX(TT,X): INPUT " 
LONGUEUR : ";VX(TT,X + 1): INPUT 
"VTAB : ";VX(TT,X + 2): INPUT "HT 



AB : ";VX(TT,X ♦ 3): NEXT 
80 TT = TT + 1: IF TT < = NV THEN 50 
90 AD = DD - NT: HOME : INPUT "NOM DU FI 

CHIER : ";NS:A0 = AD 
100 FOR I = 1 TO NV: POKE AD, VX ( I , ) : AD 
= AD ♦ l: POKE AD,VX(I,1) :NI = V 

X(I,1):AD * AD ♦ UNO = VX(I,2):H 

B = INT <N0 / 256) :LB = NO - 256 
» HB: POKE AD, LB: POKE AD ♦ 1,HB 

:AD =■ AD ♦ 2 
110 FOR J = 3 TO ( (4 • NI) + 2) : POKE A 

D,VX(I,J):AD = AD ♦ l: NEXT J: NE 

XT I 

120 DS = CHRS (4>:L0 = LO + NT 

130 PRINT DS"BSAVE"NS",A"A0",L"L0: PRIN 

T : PRINT "ADRESSE DU DEBUT TABLE 

AUX : "AO: END 
200 DS = CHRS (4): INPXfT "NOM DU FICHIE 

R : ";NS: PRINT DS"BLOAD"NS : AO = 
PEEK (43634) + 256 - PEEK (4363 

5):L0 = PEEK (43616) + 256 » PE 

EK (43617) :AD = AO : DD = AO 
205 INPUT "AJOUTS DE TABLEAUX (O/N) ?"; 

ZS: IF Z* = "0" THEN 20 
210 ZS = CHRS ( PEEK (AD)):NI = PEEK ( 

AD ♦ 1):N0 = PEEK (AD + 2) ♦ 256 
« PEEK (AD + 3) : PRINT : PRINT 

"TABLEAU "ZS" " : INPUT "OK ? " 

;ZS: IF ZS = "N" THEN 300 
220 INPUT "FINI ? ";ZS: IF ZS = "0" THE 

N PRINT DS"BSAVE"NS",A"AO",L"LO: 
END 

230 AD = AD + NO: GOTO 210 
300 I = l:AD = AD ♦ 4 

310 PRINT : PRINT "VARIABLE "I: PRINT : 
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PRINT "TYPE : " PEEK (AD): PRINT 
"LONGUEUR : " PEEK (AD + 1): PRI 

NT "VTAB : " PEEK (AD ♦ 2): PRINT 
"HTAB : " PEEK (AD + 3): PRINT : 
INPUT "OK 1 ";ZS: IF ZS = "O" TH 

EN 350 

320 INPUT "NOUVEAU TYPE: " ; TY : INPUT "N 
OUVELLE LONGUEUR: ";L0: INPUT "NO 
UVEAU VTAB: ";V. INPUT "NOUVEAU H 
TAB: ";H: POKE AD , TY : POKE AD + 1 
,L0: POKE AD + 2,V: POKE AD ♦ 3,H 

350 AD=AD+4:I=I+1:IFI< =NI 
THEN 310 

360 GOTO 210 



Programme DEMO.IG 

5 REM DEMONSTRATION DE L' INPUT 
S REM GENERALISE DE TABLEAUX 

7 REM (APPLESOFT) 

8 REM = = =; = = = = = = = = x = = = = = = = = = = = = 

10 HIMEM: 35899 

15 POKE 1013,76: POKE 1014,112: POKE 10 

15,142: REM ADRESSE POUR & 
17 DIM ZS(6),XS(15> 

20 DS » CHRS (4): PRINT DS"BL0AD IG.OBJ 
": PRINT DS"BLOAD FRE(2) " : PRINT 
DS-BLOAD DEMO": REM DEMO=DESCRIP 
TIF DES TABLEAUX 

30 POKE 37191, PEEK (43634): POKE 37192 
, PEEK (43635): GOTO 100: REM ST 
OCKE L' ADRESSE DE DEPART DU DESCR 
IPTIF 

40 VTAB 23: HTAB 1: INVERSE : PRINT "EN 

REGISTREMENT CONFIRME ? ";: NORMA 
L : GET ZS: IF ZS < > "O" AND ZS 
< > "N" THEN 40 

41 VTAB 23: HTAB 1: CALL - 868: RETURN 

50 VTAB 23: HTAB 1: INVERSE : PRINT "AP 
PUYEZ SUR UNE TOUCHE ";: NORMAL : 
GET ZS: RETURN 
100 TEXT : HOME : PRINT "1-CREATION MAS 
QUE 1": PRINT "2-CONSULTATION MAS 
QUE 1": PRINT "3-M0DIFICATI0N MAS 
QUE 1": PRINT "4-CREATI0N MASQUE 
2": PRINT "5-C0NSULTATI0N MASQUE 
2": PRINT "6-MODIFICATION MASQUE 
2": PRINT "7-FIN": PRINT 
110 INPUT "VOTRE CHOIX : ";C: IF C < 1 

OR C > 7 THEN 100 
120 IF C = 7 THEN TEXT : HOME : END 
130 ON C GOTO 200,250,250,350,400,400 
200 PRINT DS"BLOAD IG1": & IZ: IF PEEK 
(6) THEN 100: REM PEEK(6)=1 => 
ABANDON 

210 GOSUB 40: IF ZS = "0" THEN 230 
220 S, MZ: IF PEEK (6) THEN 100 
225 GOTO 210 

230 PRINT : PRINT DS"OPEN Fl": PRINT DS 
"WRITE Fl": FOR I = TO 6 : PRINT 
ZS(I): NEXT : PRINT DS"CLOSE": P 
RINT DS"PR#0": GOTO 100 

250 PRINT DS"0PEN Fl": PRINT DS"READ Fl 
" : FOR I = O TO 6: INPUT ZS(I): N 
EXT : PRINT DS"CLOSE": PRINT DS"P 
R#0": PRINT DS-BLOAD IG1" 
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260 & PZ: IF C = 2 THEN GOSUB 50: S. EZ 

: GOSUB 50: PRINT : GOTO 100 
270 GOTO 210 

350 PRINT DS"BLOAD IG2": 6. IX: IF PEEK 

<6) THEN 100 
360 GOSUB 40: IF ZS = "O" THEN 380 
370 & MX: IF PEEK <6) THEN 100 
375 GOTO 360 

380 PRINT : PRINT DS"OPEN F2" : PRINT DS 
"WRITE F2": FOR I = TO 15: PRIN 



t xs<i>: next : print d8"cl0se" : 
Print ds-pr#o": goto 100 
400 print ds-open f2" : print ds"read f2 

": FOR I = O TO 15: INPUT xse<i>: 
NEXT : PRINT DS"CLOSE": PRINT DS" 
PR#0": PRINT DS"BLOAD IG2" 

410 & PX: IF C = 5 THEN GOSUB 50: 6. EX 
: GOSUB 50: PRINT : GOTO 100 

420 GOTO 360 





Programme IG.SCE 


47 


Bt€ EXA1 










Lisa 1.5 


48 


JMP 10 










49 EXA1 


CMP #'P' 




; INSTRUCTION "PRINT" 


1 ;««**«»*****«**»♦#**********«*»* 


50 


BNE EXA2 






2 ;* 




* 


51 


JMP PO 






3 ;* ROUTINE D' INPUT GENERALISE DE * 


52 EXA2 


CMP #'M' 




; INSTRUCTION "MODIFICATION" 


4 ;* 


TABLEAUX - CODE = IG.OBJ ♦ 


53 


BEQ MO 






5 




* 


54 


CMP #'E' 




; INSTRUCTION "EFFACE" 


6 ;iHHHt*»»t******»*»********««*»*#* 


55 


BNE EXA 






7 ; 






56 


JMP EO 






8 


ORG $8E70 




57 10 


JSR $B1 




;LIT NOM DE LA VAR. -TAB. DANS PGM 


9 


OBJ $800 




58 


STA VAR 






10 ADR 


EPZ $28 ; 


ADRESSE BASE CCLONNE COURANTE 


59 


LDfi #0 






11 H 


EPZ $24 ; 


POSITION HORIZONTALE DU CURSEUR 


60 


STA ME 




;SIGNALE "INPUT" 


12 LC 


EPZ $9 ; 


NOMBRE DE CARACTERES ENTRES 


61 


STA NVP 






13 E 


EPZ $6 ; 


DRAPEAU POUR 'ESC' 


62 


JMP 11 






14 LO 


EPZ $7 ; 


LONGUEUR VARIABLE A EN T RER 


63 PO 


JSR $B1 






15 TY 


EPZ $8 ; 


TYPE DE LA DONNEE 


64 


STA VAR 






16 ZY 


EQU $311 ; 


ZONE DE ST0CKA3E DES CARAC. ENTRES 


65 


JMP SSO 






17 GET 


EQU $FDOC : 


ROUTINE SAISIE D'UN CARACTFRE 


66 MO 


JSR $B1 






18 OUT 


EQU $FDED ; 


ROUTINE SORTIE D'UN CARACTERE 


67 


STA VAR 






19 ADT 


EPZ $18 ; 


ADR. DESCRIPTIF TABLEAUX DE VP'. 


68 


LDA #1 






20 VftR 


EPZ $1A ; 


1ERE LETTRE NOM VAR. -TABLEAU 


69 


STA ME 




;SIGNALE "MODIFICATION" 


21 VP 


EPZ $6 ; 


VARIABLE DE TRAVAIL 


70 


JMP SSSO 






22 ADT2 


EPZ $1B ; 


VARIABLE DE TRAVAIL 


71 EO 


JSR $B1 






23 WAR 


EPZ $1D ; 


NBRE VAR. (INDICES) DANS TABLEAU 


72 


STA VAR 






24 V 


EPZ $25 ; 


POSITION VERTICALS DU CURSEUR 


73 


JMP El 






25 ME 


EPZ $D7 ; 


DRAPEAU "INPUT/MODIFICATION" 


74 11 


JSR SO 






26 TAB 


EPZ $6B ; 


ADR. DEBUT ZONE TABLEAUX APPLESOFT 


75 


JMP S60 






27 TAB2 


EPZ $1E ; 


VARIABLE DE TRAVAIL 


76 SO 


LDY #0 




;CH£RCH£ VAR. DANS DESCR. TABLEAUX 


28 VTAB 


EQU $FC22 


ROUTINE MONITEUR "VTAB" 


77 


LDfi (ADT) 


Y 




29 ADV 


EPZ $CE ; 


ADR. VALEUR VAR. iVAL. Z$(Oi ...i 


78 


CMP VAR 






30 FRETOP EPZ $6F 


FIN DE ZONE LIBRE 


79 


BEQ SI 




; VAR I ABLE TROUVEE 


31 NVT 


EPZ $D6 ; 


NBRE VAR. TRAITEES S/TAB EN COURS 


80 


INY 






32 FRE 


EQU $927C 


ROUT. "GARBAGE" (CF POM'S NO 2) 


81 


INY 






33 NVP 


EPZ $EB ; 


DRAPEAU POUR "REMONTEE" PAR 'ESC 


82 


LDA (ADT) 


Y 


;PASSE A VAR. -TABLEAU SUIVANTE 


34 VAR2 


EPZ $EC 


2EME LETTRE NOM VAR. -TABLEAU 


83 


CLC 




;(ADT),Y OCTETS PLUS LOIN 


35 ADTPRO EQU $9147 


STOCKAGE ADRESSE DESCRIPTF 


84 


ADC ADT 






36 


LDY ADTPRO 




85 


STA VP 






37 


STY ADT 




86 


INY 






38 


LDY ADTPSO+1 




87 


LDfi (ADT) 


Y 




39 


STY ADT-i 




88 


ADC ADT+1 






40 


LDY t$8C 




89 


STA ADT+1 






41 


STY VAR2 


1 LETTRE POUR VAR. -) 2EME=#$80 


90 


LDA VP 






42 GO 


BNE EXAO 




91 


STA ADT 






43 


RTS 




92 


JMP SO 






44 EXA 


JSR $B1 




93 SI 


LDA ADT 




;STOCKE ADRESSE-BASE DU TABLEAU 


45 


JMP 60 




94 


STA ADT2 






46 EXAO 


cmp rr 


INSTRUCTION "INPUT" 


95 


LDfl ADT+1 
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% 


era AM7+1 




103 


TUV 




97 


INY 




loo 


i ha /nnTo\ v 




98 


1 no (QDTl V 






alH n 




99 


STA NVflfl 




ISP 


QTO UD 




100 


LDA #0 




133 


TCQ (JTOD 
JoK VIHfcl 




101 


STfl NVT 




lbv 






102 


LDfl TAB 




iDl 3/1 


i nr i n 


■ acctpuc ncc nriTUTc cud i a 
JHrrlLHt Utb MUlNtb bun LH 


103 


CTQ TOR? 
win i no i. 




1DZ 


i nn MAC 


mi n%irw ici iD mavtmai c nc i a nnnMr""" 
;LIMJJhbR WXIMPLE DE LA DONNEt 


104 


I DA TOR+i 

l_ un l no* 4 




loo 30 


TCD m IT 

JbK uUT 


105 


STA TAR?+t 

win 1 nDi T 1 




1 C /i 

lb4 


ncv 




106 S2 


LDY #0 


•ChFRrHF VAR nANR 7rtMF-TQRI PCM !Y 

} wiK.nwnL. »riHi UrA^o lUPfE. inDLCnUA 


ire 

lbo 


Brfc So 




107 


LDfl (TflB2) Y 




loo 


i na i»n 




108 


CMP VflR 




1C7 
ID/ 


DIH n 




109 


BNF 'iJ 

uiil_ jo 




ICQ 

lbo 


I nA MC 
U)n flt 




110 


INY 

111 1 




ICQ 
103 


mr CDA 

Wfc bov 




111 

111 


i no /TAR?) V 




170 


LDfl NVT 


;TRflITE MODIFS '-'fiR cSC DANS imHJ< 


112 


CMP tiSO 




1 71 
1/1 


LRr 1 NVF 




113 






170 

Ml 


DPP CD A 




114 


DEY 




1 1X 
I/O 


i nA #a 




115 S3 


INY 


■PASSE fi VAR -TAR S1ITVANTF OUT 


1 /ft 


CTA iK/n 




116 


INY 


•TRGUVE (TAB2) Y firTFPi PUfl 1 flTM 


17 1 ; 


JflV OA) 




117 


LDfl (TAB?) Y 

i— */n \ ■ nut / . i 




17C Cflrt 
I/O SOU 


TCD CC1A 


ifiDC—ACCTrLiACC ^nuwcc nmiD nirinrc 
;^Kt-Hr(- ILhHbt lXJWfch (-'UUH "lUUlh. 


116 


CLC 




177 
III 


i nn tin 


119 


flDT TAR? 




17Q 
I/O 


CTA U 




120 


STA VP 




170. CQA 
1/3 03V 






121 


INY 

111 1 




lOU 


i nn c 




122 


LDfl (TflR?) Y 




1Q1 

lol 


Den CQ 
btU by 


.riAC ' cor' 
jMHb Dt ESC 


123 


ADC TAB2+1 

Hum 1 nUi, A 




1A0 
lo-c 


TMTj C1C 
JnV bib 




124 


STfl T0B2+1 




iO>J □ J 


i ny i r 




125 


LDfl VP 




1 A/i 
10ft 


DMC C1 1 

oTit oil 




126 


STfl TAB2 




UK) 31U 


I AA 7V V 


iAAC AC TAOAP Ch'TDCC UCQICTC CT 

;KHb Ifc LHKHL. hMKEb - VtHIt-lE &1 


127 


JMP S2 




1 QC 




. rvTiikicc cct nine nu ot 

;UUN«it EbT VIDE OU SI 


128 S4 


LDfl TflR? 


•SE PLACE ft TND TAR APP1 P^flFT 


1Q7 
10/ 


OCA C1 4 

ocU bll 


; KETURN Dt WODIrlCATION 


129 


CLC 




1 QQ 
100 


tcd m rr 
JoK Uu! 




130 


ADC #7 




10Q 
103 


Infl^ LC 




131 


STA TAB2 

u I n : n Us. 




1QA 
l3V 


TUV 

INX 




132 


BCC S5 




1Q1 
131 


TMD CIA 




133 


INC TAB2+1 




13^ Oil 


TCD C1 t A 
Jon OllH 




134 S5 


RTS 




130 


THTl C 1 t A 




135 S60 


ISR % 




1QA C1 in 
134 bllH 


pnv i n 
LVX LU 


jflrrlLrK. BLANCS -) LONSUEUR 


136 


JMP °,70 

W 1 IT Of V 




130 


ocn C* ID 




137 S6 


LDfl flDT"? 


•PA £ T t iflGF flilX INniRF . -JITfy«SIF<? 


130 


LUh *»HU 




138 


n r 

www 


■DANS IF OFTRIPTTF nFS TDK FQHY 


1Q7 
13/ 


TCO Af IT 

JbK UU; 




139 


ftDC «4 




130 


TUV 




140 


STfl ADT2 




1 QQ 
133 


TMD C 1 1 Ci 




141 


BCC %1 




C1 1 D 
31 ID 


DTC 




142 


INT M)T?+1 




OA1 C11A 
ZU1 311V 


i nv «a 




143 S61 


n i w 






i no i p 


• CTnn/c tnuc'inio aauc 7nw[r_TAi>i caiiv 
;olUU\t LUftbutUK UHNo lUwt - IHBLtHUA 


144 S70 


JSR S7 




TAT 


CTO /TODO\ V 




145 


JMP S71 






DCn C1 O 




146 57 


LDY *0 


■TRANSFFRT PARfWFTRFS INniCF 


OAK 


i no CDcrnn 


• TA1 PIB AADCCCC AC 1 A IIAI C! 10 TIC 1 A 


147 


LDfl (flDT?) Y 


■C0NCERNE DAN 1 ! VAR D" TROVflll 


ZUO 


XL 


JVHKlHBLt t NlAIVtHU rKtlU^ 


148 


STfl TY 




9A7 
ZV/ 


COP I P 




149 


INY 




OAfl 


CTA CDCTnf 1 

bIH hKtfuP 




150 


LDfl (flDT?) Y 




ZV3 


i no cTDCTnoxi 

LuH rKtlUrrl 




151 


STfl L0 




91 A 
Zlv 


DDL WJ 




152 


INY 




211 


STA FRETOP+1 




153 


LDfl (ADT2),Y 




212 S13 


LDfl ZY,Y 


jTRftNSFERT VftLEUR DE Lfl VflRIftBLE 


154 


STA V 

Jin V 






CCP 

SEC 


■ A CPAI AADCCCC _l POfcH ICQC TAM tCPDAli!' 

;H bVfi HURESSt + CONVERSION ECKRN 
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214 


SBC #$80 


; -> "CODE ASCII" 


077 
Z/O 


DIM Lb 


215 


STfl (FRETOP) , Y 


07 A 

27ft 




216 


INY 




07C 

Zf J 


INT 


217 


CPY LC 




07C 
ZfO 




218 


BNE S13 




077 
ill 


1 H HUV 


219 


LDY tl 


. nnri/r i j aadtpoc nc i a i iaj ciid 1VMJO 

;ST0CKE L flDRESSE DE LA VALEUR DANS 


07fl 
Z/O 


INT 


220 


IDA FRETOP 


;Z0NE DES TABLEAUX APPLESOFT 


07Q 

Z73 




221 


STfi (TflB2) , Y 




OQA 
ZOU 




222 


LDfl FRET0P+1 




OQ1 

zol 


LUT *v 


223 


INY 




OQO CCO 
ZtiZ 33Z 


i no fonu\ v 

LUH IH1/V/,T 


224 


STfl (TflB2),Y 




Ofl7 

zoo 


n r 

LLL 


225 S12 


INC NVT 




OQA 

Zoft 


HUL »»Ov 


226 


LDfl NVT 




OQ^ 
/OJ 


CTQ 7V V 
OlH IT, T 


227 


CMP NVflR 


. nrOMTCD TklATCC A CTC TDATTC 1 

jDERNIER INDlLt fl hit i KM I f t ' 


OQC 
ZOO 


ICO OJ IT 
Jon UU1 


228 


BNE S14 




0fl7 
/Of 


TMY 


229 


JSR FRE 




OQQ 
ZOO 


LrT LL 


230 


JHP EXfl 




OQQ 
Z03 


ONC OOZ 


231 S14 


LDfl TftB2 


{PASSAGE A L INDICE SUIVANT 


OQA CCOA 
Z7U SOZV 


LUH WroV 


232 


CLC 




OQ1 
Z91 


CTO 7V V 


233 


ADC #3 




OQO 


DTC 

Kid 


234 


STfl TflB2 




0Q7 CCT 
Z30 boo 


TUT WUT 
1NL Nvl 


235 


BCC S15 




OQA 
Z3ft 


i no MUT 

LUH NV! 


236 


INC TAB2+1 




Z3J 


LRV NVHK 


237 S15 


JHP S60 




OQC 
Z3D 


D*JC CCA 
DNC D3*» 


238 Sib 


LDfl NVT 




0Q7 

cil 


DTC 
Kit) 


239 


BNE S17 




OQQ CCA 

Z3tJ baft 


i no TOP/> 

LUH 1 HOZ 


240 


JSR FRE 


. i rcpi CUD 1COC IfAQTAtM C \ CODTTC 

; ESC SUR 1ERE VhRIhBLE -) oUKlIt 


OQQ 
Cli 


n r 

LLL 


241 


JKP EXfl 




■*AA 


run- j»o 


242 S17 


LDX NVP 




Ovl 


win ! nst 


243 


BNE S170 




7A0 
OUZ 


DLL SOO 


244 


STfl NVP 


;DRAPEAU LA QU ON "RENONTE 


7A7 


TMT TO&0+1 
1NL IHD/Ti 


245 S170 


DEC NVT 


;RET0UR A L INDICE PRtCEDENl 


7 A A CC^ 

304 5S3 


Tltf> CC1 


246 


LDfl TRB2 


7A"^ CCQjl 
OUj 333U 


TCO CCAO 


247 


SEC 




OVO 


i nv 

LUT irv 


248 


SBC #3 




7A7 
OW 


TCD C1 


249 


STfl TflB2 




OUO 


TMO CAO 


ACA 

250 


LDfl TAB2+! 




0V7 CI 


TCD CO 
Jon Dv 


251 


SBC #0 




Ti A CA 

oiu Ea 


TCD CC 
Jon 3D 


252 


STfl T0B2+1 




oil 


TCD C7 

Jon o/ 


253 


LDfl ADT<! 




TIO 

31Z 


i nv «"i 
LUA f*J 


254 


SEC 




olo 


TCD C 1 1 

Jtm ollH 


OCC 

255 


SBC #4 




71A 
014 


Tfcjr WWT 

1NL NV! 


256 


STfl ADTz 




OlJ 


i no MUT 

LUH NVl 


257 


LDfl ADT2+1 




olb 


LflK NVHK 


258 


SBC #0 




717 
01 / 


DKIT CO 

BNt 


259 


STfl flDTz+1 




71 a 
olo 


TMD CVO 
JnH CaH 


260 


run f»"TA 

JMP S70 




71 Q CO 
Jl3 tZ 


i no TODO 
LUH I HDZ 


261 SSO 


JSR SSOO 




70A 

3z0 


LLL 


262 


JHP EXfl 




701 
OZl 


onr * \ 


f \T T "AAA 

263 SS00 


JSR SO 


;PRINT DE L ENSEHBLE DU TABLEAU 


700 
JZZ 


CTO T0R9 


264 SSI 


JSR S6 




707 

ozo 


DLL to 


265 


JSR S7 




70A 
OZ4 


TUr TODO*1 


266 


JSR SS10 




TV! C7 
OZD CO 


TMD P/i 


267 


JMP SS3 




70C TUOIIT 
OZO 1NKJI 


1 r\A ur 
LUH nt 


268 SS10 


i nv tin 




707 
OZ/ 


DNt UtK 


269 


JSR SUA 


;EFFACE flVANT AFFICHAGE 


70 a 

JZO 


i no WUT 

LUH NVl 


07A 
Z/U 


JSR S7 




329 


CMP NVP 


271 


LDY #0 




330 


BCC DEP 


272 


LDfl (TAB2),Y 


;RECUPERE L0NGEUR ET ADRESSE VALEUR 


331 


LDfl #$80 



;AFFICHE Lfl VflLEUR DE Lfl VARIABLE 



;mm£ LA FIN DE LA DONNEE 



;PASSE A AFFICHAGE INDICE SUIVANT 



;PRE-AFFICHflGE TAB. ftVflNT MODIF. 



;EFftCE TOUT LE TABLEAU A L'ECRAN 



;R0UTIf€ D' INPUT CflRflC. /CflRflC. 
:V0IR POM'S NO 6 



5 



Pom's n" 10 



332 


LDX L0 


333 DEPO 


STfl ZY,X 


771 

334 


DEX 


335 


BPL DEPO 


336 DEP 


LDX #0 


777 

337 


STX E 


338 DEP1 


JSR 6ET 


339 


CMP #$8D 




BEQ FIN1 


341 


CPX L0 


342 


BCC SUITS 


343 


CMP #$88 


344 


BEQ RETOUR 


345 


JSR $FBDD 


7Af 

346 


JMP DEP1 


347 SJIT5 


CMP #$9B 


TAD 

348 


□kf PI ITT* 

BNE SUIT1 


349 


Pit V JLA 

CPX #0 


350 


BNE SUIT! 


351 


LDfl #9 


352 


STfl E 


353 


RTS 


354 SUIT1 


CMP #$flC 


355 


BNE SUIT2 


356 


LDfl #$flE 


357 


tun pj iTTn 

JMP SUITS 


358 SUIT2 


CMP #$flE 


Ten 

359 


BEQ SUITS 


7f A 

360 


CMP #$88 


7C 1 

361 


BNE SUIT3 


362 


CPX #0 


363 


BEQ SUIT3 


364 RETOUR DEX 



365 


DEC H 


366 


JMP DEPi 


367 SUIT3 


CMP «95 


368 


BNE sum 


369 


LDfl $25 


370 


JSR $FBC1 


371 


LDY H 


372 


LDfl (ADR), Y 


373 


JMP SUITS 


374 SUIT4 


CMP #$ft0 


375 


BCC DEPI 


376 


CMP #$DB 


377 


BCS DEPI 


378 


LDY TY 


379 


CPY #1 


380 


BEQ SUIT6 


381 


CMP #$AF 


382 


BCS SUIT7 


383 


CMP #$flD 


384 


BNE DEPI 


385 SUIT7 


CMP #$Bft 


386 


BCS DEPI 


387 SUIT6 


CPX #0 


388 


BNE SUITS 


389 


CMP #$A2 


390 


BEQ DEPI 


391 SUITS 


JSR OUT 


392 


STfl ZY, X 


393 


INX 


394 


JMP DEPI 


395 FIN1 


STX LC 


396 


RTS 


397 


DCM "INT" 


398 


END 



Recapitulation IG.OBJ 



•8E70.9161 



8E70- 


AC 


47 


91 


84 


18 


AC 


48 


91 


8E78- 


84 


19 


AO 


80 


84 


EC 


DO 


07 


8E8O- 


60 


20 


Bl 


00 


4C 


7E 


8E 


C9 


8E88- 


49 


DO 


03 


4C 


AO 


8E 


C9 


50 


8E90- 


DO 


03 


4C 


AE 


8E 


C9 


4D 


FO 


8E98- 


ID 


C9 


45 


DO 


E4 


4C 


C2 


8E 


8EAO- 


20 


Bl 


00 


85 


1A 


A9 


00 


85 


8EA8- 


D7 


85 


EB 


4C 


CA 


8E 


20 


Bl 


8EBO- 


00 


85 


1A 


4C 


3E 


90 


20 


Bl 


8EB8- 


00 


85 


1A 


A9 


01 


85 


D7 


4C 


8ECO- 


9C 


90 


20 


Bl 


00 


85 


1A 


4C 


8EC8- 


A7 


90 


20 


DO 


8E 


4C 


3B 


8F 


8EDO- 


AO 


00 


Bl 


18 


C5 


1A 


FO 


17 


8ED8- 


C8 


C8 


Bl 


18 


18 


65 


18 


85 


8EEO- 


06 


C8 


Bl 


18 


65 


19 


85 


19 


8EE8- 


A5 


06 


85 


18 


4C 


DO 


8E 


A5 


8EFO- 


18 


85 


IB 


A5 


19 


85 


1C 


C8 


8EF8- 


Bl 


18 


85 


ID 


A9 


00 


85 


D6 



8F00- 


A5 


6B 


85 


IE 


A5 


6C 


85 


IF 


8F08- 


AO 


00 


Bl 


IE 


C5 


1A 


DO 


08 


8F10- 


C8 


Bl 


IE 


C9 


80 


FO 


18 


88 


8F18- 


C8 


C8 


Bl 


IE 


18 


65 


IE 


85 


8F20- 


06 


C8 


Bl 


IE 


65 


IF 


85 


IF 


8F28- 


A5 


06 


85 


IE 


4C 


08 


8F 


A5 


8F30- 


IE 


18 


69 


07 


85 


IE 


90 


02 


8F38- 


E6 


IF 


60 


20 


41 


8F 


4C 


4D 


8F40- 


8F 


A5 


IB 


18 


69 


04 


85 


IB 


8F48- 


90 


02 


E6 


1C 


60 


20 


53 


8F 


8F50- 


4C 


6E 


8F 


AO 


00 


Bl 


IB 


85 


8F58- 


08 


C8 


Bl 


IB 


85 


07 


C8 


Bl 


8F60- 


IB 


85 


25 


C8 


Bl 


IB 


85 


24 


8F68- 


85 


06 


20 


22 


FC 


60 


A6 


07 


8F70- 


A9 


AE 


20 


ED 


FD 


CA 


DO 


FA 


8F78- 


A5 


06 


85 


24 


A5 


D7 


DO 


OD 


8F80- 


A5 


D6 


C5 


EB 


90 


07 


A9 


00 


8F88- 


85 


EB 


4C 


94 


8F 


20 


53 


90 


8F90- 


A5 


06 


85 


24 


20 


CE 


90 


A5 


8F98- 


06 


FO 


03 


4C 


OF 


90 


A6 


09 


8FA0- 


DO 


10 


BD 


11 


03 


C9 


80 


FO 


8FA8- 


09 


20 


ED 


FD 


E6 


09 


E8 


4C 


8FB0- 


A2 


8F 


20 


B8 


8F 


4C 


C6 


8F 



Pom's n" 10 



8FB8- 


E4 


07 


FO 


09 


A9 


AO 


20 


ED 


8FC0- 


FD 


E8 


4C 


B8 


8F 


60 


AO 


00 


8FC8- 


A5 


09 


91 


IE 


FO 


25 


A5 


6F 


8FD0- 


38 


E5 


09 


85 


6F 


A5 


70 


E9 


8FD8- 


00 


85 


70 


B9 


11 


03 


38 


E9 


8FE0- 


80 


91 


6F 


C8 


C4 


09 


DO 


F3 


8FE8- 


AO 


01 


A5 


6F 


91 


IE 


A5 


70 


8FF0- 


C8 


91 


IE 


E6 


D6 


A5 


D6 


C5 


8FF8- 


ID 


DO 


06 


20 


7C 


92 


4C 


81 


9000- 


8E 


A5 


IE 


18 


69 


03 


85 


IE 


9008- 


90 


02 


E6 


IF 


4C 


3B 


8F 


A5 


9010- 


D6 


DO 


06 


20 


7C 


92 


4C 


81 


9018- 


8E 


A6 


EB 


DO 


02 


85 


EB 


C6 


9020- 


D6 


A5 


IE 


38 


E9 


03 


85 


IE 


9028- 




IF 


E9 


00 


85 


IF 


A5 


IB 


9030- 


38 


E9 


04 


85 


IB 


A5 


1C 


E9 


9038- 


00 


85 


1C 


4C 


4D 


8F 


20 


44 


9040- 


90 


4C 


81 


8E 


20 


DO 


8E 


20 


9048- 


41 


8F 


20 


53 


8F 


20 


53 


90 


9050- 


4C 


85 


90 


A2 


00 


20 


B8 


8F 


9058- 


20 


53 


8F 


AO 


00 


Bl 


IE 


85 


9060- 


09 


FO 


1C 


C8 


Bl 


IE 


85 


CE 


9068- 


C8 


Bl 


IE 


85 


CF 


AO 


00 


Bl 


9070- 


CE 


18 


69 


80 


99 


11 


03 


20 


9078- 


ED 


FD 


C8 


C4 


09 


DO 


FO 


A9 


9080- 


80 


99 


11 


03 


60 


E6 


D6 


A5 


9088- 


D6 


C5 


ID 


DO 


01 


60 


A5 


IE 



9090- 


18 


69 


03 


85 


IE 


90 


02 


E6 


9098- 


IF 


4C 


47 


90 


20 


44 


90 


AO 


90A0- 


00 


20 


EF 


8E 


4C 


3B 


8F 


20 


90A8- 


DO 


8E 


20 


41 


8F 


20 


53 


8F 


90B0- 


A2 


00 


20 


B8 


8F 


E6 


D6 


A5 


90B8- 


D6 


C5 


ID 


DO 


03 


4C 


81 


8E 


90C0- 


A5 


IE 


18 


69 


03 


85 


IE 


90 


90C8- 


02 


E6 


IF 


4C 


AA 


90 


A5 


D7 


90D0- 


DO 


10 


A5 


D6 


C5 


EB 


90 


OA 


90D8- 


A9 


80 


A6 


07 


9D 


11 


03 


CA 


90E0- 


10 


FA 


A2 


00 


86 


06 


20 


OC 


90E8- 


FD 


C9 


8D 


FO 


72 


E4 


07 


90 


90F0- 


OA 


C9 


88 


FO 


28 


20 


DD 


FB 


90F8- 


4C 


E6 


90 


C9 


9B 


DO 


09 


EO 


9100- 


00 


DO 


05 


A9 


09 


85 


06 


60 


9108- 


C9 


AC 


DO 


05 


A9 


AE 


4C 


55 


9110- 


91 


C9 


AE 


FO 


40 


C9 


88 


DO 


9118- 


OA 


EO 


00 


FO 


06 


CA 


C6 


24 


9120- 


4C 


E6 


90 


C9 


95 


DO 


OC 


A5 


9128- 


25 


20 


CI 


FB 


A4 


24 


Bl 


28 


9130- 


4C 


55 


91 


C9 


AO 


90 


AF 


C9 


9138- 


DB 


BO 


AB 


A4 


08 


CO 


01 


FO 


9140- 


OC 


C9 


AF 


BO 


04 


C9 


AD 


DO 


9148- 


9D 


C9 


BA 


BO 


99 


EO 


00 


DO 


9150- 


04 


C9 


A2 


FO 


91 


20 


ED 


FD 


9158- 


9D 


11 


03 


E8 


4C 


E6 


90 


86 


9160- 


09 


60 















COMEICO Un vrai discounteur !!! 

annonce l'arrivee prochaine des micros du futur : 

LES MULTI-COMPATIBLES 

En fichez I'interface I vous avez le langage FORTH™, I'interface II vous avez un IBM-PC™, I'interface III vous etes 
compatibles APPLE™ (et vous pouvez vous meme construire I'interface III un jeu d'enfant !!!) 

PRIX TV A COMPRISE 



- Diskettes 5'" 4 3M - SF - DD les 10 189,00 F 

les 100 1 790,00 F 

- Disk Drive pour Apple™ 

(mecanismes Siemens : la "Rolls" des Drives !!) 2 950,00 F 

- Carte memoire 16 K 770,00 F 

- Carte 80 colonnes 1 155,00 F 

- Carte imprimante parallele 890,00 F 

- Carte controlleur pour Drive 675,00 F 

- Imprimante type Nec 8023 4 950,00 F 

SEIKOSHA GP 100 A 2 350,00 F 

- Monitor grande marque 12" Vert 1 150,00 F 

- Reveil LCD a fixer sur Monitor 79,00 F 

A VENIR : UN MICRO 64K + DRIVE + MONITOR 9 950,00 F 



A VENIR : FRANKLIN (le compatible APPLE™ U.S., MEDFLY™. des compatibles 
ATARI™ , COLECO™, TRS-80™ KEEP CONTACT !!! 

COMEICO SARL, 97, rue de Richelieu. 75002 PARIS 



(Chercheurs frangais, pouvons realiser vos projets a bas prix en Extreme-Orient grace a nos bureaux a Hong-Kong, Taiwan. 
Contacter M' LONG) 
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Pom's n° 10 



Un calendrier perpetuel en Visicalc 

Olivier Herz 



A voir les exemples proposes habi- 
tuellement en demonstration des 
possibility du programme Visicalc. 
on finit par ressentir une certaine las- 
situde a l'egard des chiffres et des 
modeles de gestion. Dans ce mo- 
deste article, je voudrais prouver qu'il 
est possible, avec ce programme ge- 
nial, de faire autre chose qu'une 
feuille d'impot. une gestion de 
compte bancaire. un bilan de PME 
ou ... le tableau de bord des ventes 
de Pom's. 

Voici done un calendrier perpetuel. 
qui serait realisable en BASIC, mais 
dont Visicalc permet une presenta- 
tion agreable obtenue rapidement. 



Le mode d'emploi en est tres sim- 
ple : il suffit de charger la feuille elec- 
tronique (si vous n'avez pas la dis- 
quette d'accompagnement de ce 



B 



numero de Pom's, il vous faudra 
taper les formules ci-jointes): on ini- 
tialise le tableau avec ( CY). on sa 
met en recalcul manuel ( GRM) avec 
ordre par lignes d'abord ( GOR) et 
on definit une largeur des colonnes 
de 6 (/GC6). On ecrit alors le quan- 
tieme (numero du jour) dans la case 
B7 (de 1 a 31). le numero du mois 
dans la case D7 (de 1 a 12) et les 4 
chitfres de l'annee dans la case F7 
(de 1582. date de mise en service du 




1 

2 


CALENDRIER PERPETUEL 


SUR 


VISICALC 


3 
4 


<C) OLIVIER HERZ 


POUR 


POM ' 


3 


5 
6 
7 


JOUR: 15 MOIS: 


12 


ANNEE : 


1983 


8 


BISSEXTILE: 


FALSE 






9 








!G 1 


LUN 


10 


NOMBRE D'OR: 




8 


!F 2 


MAR 


11 








!E 3 


MER 


12 


LETTRE DOMINICALE: 




6 


!D 4 


JEU 


13 








!C 5 


VEN 


14 


EPACTE: 




16 


!B 6 


SAM 


15 








!A 


DIM 


16 


DATE DE PAQUES: 




3 4 






17 








! 


NL 


is 


JOUR DE SEMAINE: 




4 


! 7 


PQ 


19 








! 14 


PL 


20 


. AGE DE LA LUNE: 




11 


! 21 


DQ 



calendrier Gregorien actuel. a 2199). 
II ne reste alors qu'a forcer un recal- 
cul en pressant la touche "!" et Ton 
peut lire les resultats suivants : 

• annee bissextile ou non 

• le nombre d'or de l'annee. e'est-a- 
dire le rang de l'annee dans le 
cycle de METON (19 annees va- 
lent 235 lunaisons) 

• la lettre dominicale qui indique 
quel jour tombe le ler janvier 
(1^ G — Lundi. 2^ 

Mardi 6 — » B— » Samedi. — 

A— » Dimanche) 

• l'epacte. qui est I'age de la lune 
au ler janvier. diminue d'une 
unite 

• le jour de la semaine ( 1 
Lundi — > Dimanche) 

• l'age de la lune (en sachant que 
0=Nouvelle lune. 7=Premier 
Quartier. 14=Pleine Lune et 
21=Dernier Quartier) 

Nous ne detaillerons pas les calculs. 
qui se font dans les cases invisibles a 
droite de l'ecran et utilisent toutes les 
possibilites de Visicalc (expressions 
numeriques ou booleennes. fonctions 
diverses dont. @ LOOKUP...), mais 
nous ne saurions trop conseiller a 
tous ceux que cela interesse la lec- 
ture de 1' excellent ouvrage "Le Ca- 
lendrier" de Paul Couderc. dans la 
collection "Que-Sais-Je?". d'ou sont 
tirees toutes ces formules... 

A partir de cet exemple. on voit que 
seul le manque d'imagination peut li- 
miter les utilisations possibles de Visi- 
calc. Alors. tous a vos feuilles electro- 
niques pour realiser. entre autres. des 
jeux comme la bataille navale. ou 
meme le Mastermind (ce dernier cas 
est un peu plus complexe. mais par- 
faitement realisable)... 





G 


H 


I 


J 


K 


L 


M 


N 











1 


15 


16 


17 


18 


19 


20 


21 


22 










2 


7 


7 


8 


8 


9 


9 


9 


10 










3 


15 


16 


17 


18 


19 


20 


21 


22 










4 
5 


4 


4 


3 


2 


1 


1 





6 










6 


19 


104 


7 


157 


7 


7 


2486 


1 


16 








7 


FALSE 


FALSE 


FALSE 


27 


46 


40 


29 














P 


Q 


R 


S 


T 


U 


V 


W 


X 


Y 


AA 


AB 


1 


1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


2 


6 


2 


2 


5 





3 


5 


1 


4 


6 


2 


4 


3 


1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


4 





1 





1 


2 


3 


4 


4 


7 


7 


9 


9 



Pom's n" 10 



61 



F I CHI ER VISICOLC : CALEfMDRIER VISICflLC 



/X:/X>fll!)fti: 


)S2:5 


>N4:E 


>DiO:+I6+I 


/SC6 


>T2:0 


>?4:0 


>£10:* !F 2 


/GSM 


>U2:3 


)Gs:i 


)FiO:" «ftR ■ 


/SOR 


>V2:5 


>R4:0 


>£11!" IE 3 


/Wi 


>W2M 


}S4!i 


>Fli:" MER ' 


>fll:* CflLEM 


>X2:4 


>T4:2 


>812! D LETTR£ 


>Bi?"DRIER 


>Y2:& 


>u4;3 


>Bi2s' DOMIN 


>Cl!"?ERP£T 


>Z2!2 


>V4:4 


>C12i"ICft.E: 


>Di:"UEL Su 


>Afi2:4 


;*4:4 


>Di2:+J7-!7*e:NT(J7/7); 


>El:"R VISI 


>fl3s" iC 


>X4t7 


>£12:" !D 4 


>rl!"CflLC 


>B3!"> 3LIV 


)Va:? 


>Fi2s" JEU . 


>Slsl5 


>C3:"IER HE 


>Z4:9 


>£13:" iC 5 


>Hlil6 


>D3!"RZ PQU 


> PP.4: 9 


)F13:" VEN 1 


> 1 1 : 1 7 


>£3!"R P»' 


}fl6:" JOUR: 


)B14:" £ 


} Jl r 18 


)F3:"S 


>B6:/FL19 


>C14:"PP.CTE: 


>Ki:i9 


>S3:i5 


>Lo!" "CIS: 


>D14:+Gb 


>Lls20 


>«!16 


iD6:/FL3 


>E14!' !B 6 


>ffl*22 


>!3M7 


>£&:"ftNNEE: 


>F14!" SfV. ! 


>N1 :22 


)j3ua 


- : 6:/FL19£-0 


>£15:" !P 




>K3: 19 


>66!*IST(F6/100) 


>Fi5: N DIP! : 


'2 


)L3:20 


>r.b:eiNT<Pfe/i9> 


■'' DflT 


}Ri:3 


>*3s21 


>16s+F6-(19*H8) 


>B1&:"£ DE P 


>SI :u 


>M3:22 


> J6 : 19*1 6+15+8LQ0KliP (66, SI. ..Nl) 


)Ci6: ,: fiQL£S: 


)7i:5 


>P3:! 


>K6!+J6-(30*8IMT(J6/30)> 


>D16:@IF(L6-N6(=3.23+_t 


>U1!6 


>83:2 


>L6:SIF(KiR(K6=29,§f*iD(K6=26, I&hOi ),K6-I,K6i 


>E16i/FL6IF<L6-N6<-3,3, 


>Vl'7 


>S3'3 


• H6!+FS+§INT(f 6/4) *l6+8l00K'JP (36, 33. . . \3 > 


>E17:" : 




>S3:4 


>M6:+M&-(7*61N" («6/7)) 


)F17:" NL ! 


>X::9 


>T3:5 


) 06: 61 F (K6) 23. 53-K6, 23-.K6) 


>fllB!" JOUR 


JY1U0 


>Li3:& 


>67:<F6/4)=§INT<F6/4) 


>B16:" DE SE 


mm 


)V3!7 


> ;-7 :6fiND ( (F6/100) =61*7 (F6/100) , (f 6/400) (J 6IN T iFS/400) 


)C18: "MAINE: 


mini 


>«3:6 


)I7sefWD{S7,8MlTiH7)) 


>Die:+K7-(7*eiNT(K.7/7) 


v S2 : 7 


>X3:S 


> J7 : *n6-l&*6I- (6flND ! I7,36<3), 32. 33; 


>E18i H ' 7 


"-.2:7 


;Y3:10 


> K7 : + J7*B6+6i-QQKijP !D6, PI. ..flfil) 


)F18:" PQ ! 


;:>:3 


>Z3U1 


>L7:+06+B6+§LD0iOJP(D6, P3. . . <W3) 


>£19:" : 14 


;J2:B 


)Pfl3::2 


> l»7!6IF( ID6/2)=6Ifl"(D6/2) , 23, 30) 


;F19:" PL : 


><2«9 


>S4!4 


}B3:' ; BiSSE 


>P20:" flSE 


>_2:5 


>h4:4 


)Ca:"XTlL£! 


>B20s" DE LP 


>*2:3 


>I4:3 


>D8:+I7 


)C20:" lL'NE: 


>N2:iO 


>J4".2 


>E9:" !G 1 


>D20:«F<L7>=fl7,L7-*7, 


>P2*S 


>K4:i 


>F9:* t_Uh ! 


)E20: ,, ! 21 


>fi2:2 


>L4:i 


>B10:*N0*BR£ 


>F20:" DQ ! 


>R2s2 


mm 


>C10:" D'OR! 





Liste sortie par le programme LISTE de la disquette « Visicalc sur Apple » 



Transformation 
hexadecimal/ decimal 
ultra-rapide 



Cette transformation h' utilise que la 
ROM de 1' Applesoft: pas de pro- 



detruit aucune memoire de 1' Apple- 
soft ou de ses programmes. 

Elle utilise la routine L1NPRT 
($ED24), qui affiche un nombre 
hexadecimal de 2 octets (octet haut 
dans l'accumulateur A et octet bas 
dans le registre X). Le resultat est 



Si XYZT represente ce nombre, il 
suffit pour donner une valeur aux re- 
gistres, selon le manuel de reference 
de P Apple, de faire : 

] CALL -151 

* CTRL-E 

* :XY ZT N ED24G (noter pour une 
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Conversion de Big Mac vers Lisa 2,5 

Andre Airy 



De nombreux programmes en lan- 
gage assembleur publies dans Pom's 
sont ecrits avec l'assembleur BIG 
MAC que je ne possede malheureu- 
sement pas. Par contre, je suis pos- 
sesseur du LISA 2.5 et, lasse de reta- 
per des fichiers-source ijiutilisables 
par mon assembleur, je me suis done 
decide a ecrire un programme qui 
traduirait automatiquement les fi- 
chiers BIG MAC en fichiers LISA. 

Ce programme pouvait a priori etre 
concu pour deux types de taches dif- 
ferentes : 

- soit une simple transformation du 
fichier pour le rendre lisible par 
LISA; 

- soit, en plus, une traduction, dans 
la mesure du possible, des instruc- 
tions BIG MAC en instructions LISA. 

La seconde solution etant evidem- 
ment la meilleure. e'est celle que je 
me suis efforce de mettre en oeuvre. 

Le fonctionnement du programme 
est tres simple : apres avoir charge 
en memoire le fichier BIG MAC. 
sauve sous forme Binaire, il 1' exa- 
mine entierement pour trouver les 
formats d' instruction differents selon 
l'assembleur. 

Les changements possibles sont les 
suivants: 

• suppression des lignes vides 

• remplacement de "*" par ";" 

En effet, si LISA accepte "*" 
comme annonce d'une remar- 
que en debut de ligne, il le re- 
fuse en milieu de ligne. 
Exemple : 
* ceci est accepte 
LDA #$60 * mais pas ceci 
; ceci est accepte 
LDA #$60 ; ainsi que cela 

Dans le doute, le programme rem- 
place tous les "*". 

• remplacement de "#<" par "#" 

Partie haute d'une adresse ; 
exemple : 

LDA # FC58 ; = LDA #$FC 

• remplacement de "#>" par "/" 

partie basse d'une adresse ; 
exemple : 

LDA /FC58 ; = LDA #$58 

• insertion du caractere "!" si *, +, 

-ou ! (EOR) suivi d'un nombre 
non precede de "$" sauf apres 



l'instruction HEX. 
Avec BIG MAC un nombre est 
considere comme decimal s'il 
n'y a pas de "$" devant. Pour 
LISA, tout nombre decimal doit 
etre precede de "! ". Exemple : 

LDA !36 ; = LDA 36 pour BIG 
MAC 

• remplacement de DFB par DFS 

DFB $nnn reserve nnn octets 
pour BIG MAC et, par exem- 
ple : 

VAR DFS $2 ; gardera deux 
octets a l'adresse VAR en LISA 

• remplacement de DDB par ADR 

ADR LABEL remplacera les 
deux octets suivants par 
l'adresse de LABEL. 
Exemple : 

ADR HOME ;(HOME=$FC58) 
genere 58FC 

• remplacement de EQU par EPZ si 

l'adresse suivant l'instruction est 
en page zero (inferieure a 256). 
Certaines instructions travaillent 
sur des adresses de page zero, 
comme LDA (LABEL.X). Or, si 
BIG MAC sait automatiquement 
si une adresse est en page zero, 
cela doit etre precise avec LISA 
par EPZ (Equates Page Zero). 
Exemple : 
LABEL 1 EQU $FE 
LABEL2 EPZ $FE 
LDA (LABELl.X) : provoquera 
une erreur 

LDA (LABEL2.X) ; = LDA 
(LABEL2+X) 

• remplacement de "=" par "EPZ" 

meme chose ("=" egal "EQU") 

• remplacement de "!" par "A" (ou 

exclusif). 
Exemple : 

A = $41A$80 ; A = $C1 
ATTENTION: 

le programme TRANSFERT modifie 
aussi les remarques : 
Exemple : 

AB = $23 ; AB = 23 
donnera : 

AB EPZ $23 ; AB EPZ $23 

Une fois le fichier integralement mo- 
difie et sauve sur disquette (sous son 
nom d'origine precede de LISA), il 
peut etre charge avec LISA par l'ins- 
truction CTRL-D EXEC... 

Toutes les modifications envisagea- 
bles et necessaires n'ayant pu etre 
prises en compte dans mon petit pro- 
gramme, il se peut que ce charge- 



ment soit brusquement interrompu et 
qu'un message d'erreur apparaisse. 
Dans ce cas, il suffit de corriger la 
ligne (ainsi que le demande d'ailleurs 
LISA) et la suite du fichier continuera 
a se charger. 
Exemple : 

Ligne N" 125 de "La Program- 
mation Facilitee" (Pom's N" 5) 
125 PHA *DE 
LISA prend le DE comme la 
suite de PHA et stoppe. II suffit 
de taper PHA ;DE pour que la 
suite se deroule normalement. 

Voici enfin quelques precisions sur le 
fonctionnement du programme : 

Ligne 10 : 

Protection du fichier par 
HIMEM. 

Le fichier cree sera affiche a 

l'ecran (MON Out). 
Lignes 40-80 : 

"Mode d'emploi" du pro- 
gramme. 
Lignes 100-110: 

Saisie du nom du fichier-source. 

La routine utilisee est la routine 

dont se sert Applesoft pour I'en- 

tree des programmes. 

Elle permet done la saisie de 

virgules, etc. 

La chalne de caracteres est sto- 
ckee a partir de l'adresse 512 
($200) et se termine par 0. 

Ligne 130 : 

Chargement du fichier source a 
l'adresse 6000. 

Ligne 140 : 

Message invitant a changer de 
disquette si Futilisateur a indi- 
que le meme drive pour les 2 
fichiers. 

Lignes 160-180 : 

"WRITE" n'acceptant pas de 
precisions quant au slot et au 
drive, ces indications sont reti- 
rees du nom. 

Lignes 190-210 : 

Ouverture du fichier. 
INS indique a LISA que des 
lignes vont etre ajoutees au pro- 
gramme en memoire. 

Lignes 210-470 : 

Creation du fichier LISA. 

Ligne 500 : 

Fermeture du fichier. 
Les adresses 43616 et 43617 
indiquent la longueur du dernier 
fichier charge (e'est-a-dire le fi- 
chier BIG MAC). 

Lignes 530-650 : 

Sous-programme permettant de 
determiner si le nombre suivant 
est inferieur a 256 (pour EQU 
et EPZ). 
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Variables utilisees par le programme 
principal : 

SL = PEEK(43626) et DR = 
PEEK(43624) : Slot et Drive en ser- 
vice au debut du programme et done 
pour le fichier LISA. 

A$ : nom du fichier BIG MAC avec 
le Slot et le Drive. Attention, le nom 
du fichier doit bien comporter le suf- 
fixe ".S" caracteristique des fichiers- 
source BIG MAC. 



A$,B$ : on se sert de B$ pour sup- 
primer de A$ le slot et le drive. 

P0.P1,P2,P3 : Px=PEEK(T+x-l) ; 
utilise pour simplifier la lecture du 
programme. En effet, les codes des 
caracteres vont de 128 a 255 au lieu 
de a 127, d'ou : 

IF PI = 193 THEN ... 

au lieu de : 

IF P1=ASC("A") THEN ... 

HEX: HEX=1 si l'instruction prece- 
dents est HEX. 



T : variable servant aux boucles. 

Variables du sous-programme: 

HEX$ : contient les caracteres du 
nombre hexa suivant. 

HEX : code de chaque caractere de 
HEX$. 

DEC = HEX$ mais en decimal. 
EPZ : EPZ = 1 si DEC < 128. 
I : variable servant aux boucles. 



REM 

PROGRAMME DE CONVERSION 
BIG MAC <==> LISA V2.5 



Transfert 
BIG-MAC 
vers LISA 



10 HIMEM: 6000: PRINT CHRS (4)"M0N O" 
20 REM 

SL=SL0T ACTUEL 
DR=DRIVE ACTUEL 

30 SL = PEEK (43626) :DR = PEEK (43624) 
40 HOME : INVERSE 

50 PRINT "CONVERSION BIG-MAC >>>>>>>>> 
LISA V2.5" 

60 PRINT : PRINT "TAPEZ LE NOM DU FICHI 
ER BIG-MAC (AVEC EVENTUEL 

LEMENT LE DRIVE ET LE SLOT" 

70 NORMAL : PRINT "LE FICHIER LISA SERA 
ENREGISTRE SUR LA DISOUETTE ACT 
UELLEMENT EN SERVICE." 

80 PRINT "(ACTUELLEMENT SLOT "SL" ET DR 
IVE "DR" )" 

90 REM 

CALL-10964 ( =SD52C INLIN) 

= INPUT UNIVERSEL 

LES CARACTERES DE LA CHAINE 

SONT RANGES A PARTIR DE 

512 ET LA CHAINE EST TERMINEE 

PAR LE CARACTERE NUL (SOO) 



100 



110 



120 
130 
140 



150 



CALL - 1096 



PRINT : PRINT "--> * 
4 

FOR T = 512 TO 512 ♦ 255: IF PEEK 
(T) < > THEN A3 = AS * CHRS ( 
PEEK (T)): NEXT 
NORMAL 

PRINT CHRS (4)"BL0AD"AS",A6000" 
IF SL = PEEK (43626) THEN POKE - 

16368,0: PRINT "CHANGER DE DISQU 
E PUIS TAPER UNE TOUCHE" : WAIT - 

16384,128: PRINT : PRINT 

REM 



ENLEVE DU NOM DU FICHIER 

LES PARAMETRES (SLOT ET DRIVE) 

160 FOR T = 1 TO LEN (AS) : IF MIDS (A 
S,T,1) < > "," THEN BS = BS ♦ M 



IDS (AS,T,1>: NEXT 
170 AS = BS 

180 PRINT CHRS (4) "OPEN LISA . "AS" , D"DR 
",S"SL 

190 PRINT CHRS (4) "WRITE LISA. "AS 
200 PRINT "INS" 

210 FOR T = 6000 TO 6000 + PEEK (43616 
) ♦ 256 « PEEK (43617) - 1 

220 PI = PEEK (T):P2 = PEEK (T + 1>:P3 
= PEEK (T + 2):P0 = PEEK (T - 
1) 

230 REM 

SI UNE LIGNE EST VIDE, 
ON LA SUPPRIME. 

240 IF PI = 141 AND PO = 141 THEN 480 
250 IF PI = 141 THEN HEX = 
260 REM 

ON REMPLACE LE CARACTERE » PAR ; 
(VOIR COMMENTAIRE) 

270 IF PI = 170 THEN POKE T,187 
280 REM 

#< DEVIENT # 

EX: LDA #<DEBUT ==> LDA #DEBUT 

290 IF PI = 163 AND P2 = 188 THEN T = T 
* l: POKE T,163 

300 REM 



#> DEVIENT / 

EX: LDA #>DEBUT ==> LDA /DEBUT 

310 IF PI = 163 AND P2 = 190 THEN T = T 
♦ l: POKE T,175 

320 REM 

'HEX' ANNONCE DES CHIFFRES HEXA 
MAIS SANS 'S'. SI 'HEX' EST 
TROUVE ALORS HEX=1 

330 IF PI = 200 AND P2 = 197 AND P3 = 2 

16 THEN HEX = 1 
340 REM 

SI UN NOMBRE EST PRECEDE DE 
«,!,♦,-,#,' ' SANS LE SIGNE S, 
C'EST UN NOMBRE DECIMAL ET 
ON LE FAIT PRECEDER DE ' ! ' . 
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350 REM (EXCEPTION "HEX") 
(VOIR PLUS HAUT) 

360 IF PI > 175 AND PI < 187 AND (PO = 
163 OR PO = 161 OR PO = 170 OR PO 
= 171 OR PO = 173 OR PO = 160) A 
ND NOT HEX THEN PRINT CHRS (16 

l); 

370 REM 

DFB DEVIENT DFS 

380 IF PI = 196 AND P2 = 198 AND P3 = 1 

94 THEN POKE T ♦ 2,211 
390 REM 

EQU DEVIENT EPZ SI L'ADRESSE QUI 
SUIT EST INFERIEURE A 256 (SFF) 

400 IF PI = 197 AND P2 = 209 AND P3 = 2 
13 THEN GOSUB 530: IF EPZ THEN 
POKE T ♦ 1,208: POKE T + 2,218 

410 REM 

= DEVIENT EPZ SI L'ADRESSE QUI 
SUIT EST INFERIEURE A 256 (SFF) 

420 IF PI = 189 THEN T = T - 2: GOSUB 5 
30 :T = T + 2: IF EPZ THEN PRINT 

CHRS (197) CHRS (208) CHRS (218) 
; : GOTO 480 

430 REM 

DDB DEVIENT ADR 

440 IF PI = 196 AND P2 = 196 AND P3 = 1 
94 THEN POKE T,193: POKE T + 2,2 
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450 REM 

! DEVIENT * (OU-EXCLUSIF) 

460 IF PI = 161 THEN POKE T,222 
470 PRINT CHRS ( PEEK (T) ) ; 
480 NEXT 

490 PRINT : PRINT " END" 
500 PRINT CHRS (4) "CLOSE" 
510 END 
520 REM 

CONVERSION HEXA-DECI 
530 X = T + 5 

540 HEXS = CHRS ( PEEK <X) ) + CHRS ( P 
EEK (X + 1)) + CHRS ( PEEK (X + 
2)) ♦ CHRS ( PEEK (X + 3)) 

550 DEC = 

560 FOR I = 1 TO 4: HEX = ASC ( MIDS (H 
EXS,I,1) ) 

570 IF HEX < 176 OR (HEX > 185 AND HEX 
< 193) OR HEX > 198 THEN HEXS = 
CHRS (176) ♦ HEXS 

580 NEXT 

590 FOR I = 1 TO 4 

600 HEX = 5 - I:HEX = ASC ( MIDS (HEXS, 
HEX, 1) ) 

610 IF HEX < 192 THEN DEC = DEC + (HEX 

- 176) « 16 ~ (I - 1) 

620 IF HEX > 192 THEN DEC = DEC * (HEX 

- 183) « 16 " (I - 1) 
630 NEXT 

640 EPZ = O: IF DEC < 256 AND PEEK (X - 

1) = 164 THEN EPZ = 1 
650 RETURN 



MUSIC 

Joel Delannoy 



Pom's vous propose sur une dis- 
quette independante, au prix de 
80,00 francs, un logiciel de creation 
musicale, baptise tout naturellement 
"MUSIC". 

MUSIC permet de jouer des mor- 
ceaux de musique a une voix sur 
quatre octaves, du DO-1 au SI-4, sur 
les cles de FA et de SOL. On ne 
peut intervenir ni sur le timbre ni sur 
le volume. 

MUSIC permet d'entrer un air en 
memoire note par note et mesure 
par mesure, d'afficher la partition a 
l'ecran au fur et a mesure, d'effec- 
tuer des modifications, de supprimer 
ou d'intercaler des mesures, de re- 
produce des refrains sans en entrer a 
nouveau chaque note, d'examiner la 
partition mesure par mesure, de 
jouer l'air integralement, par fraction 
ou par mesure, de modifier le tempo, 



de sauver un air sur disquette et de 
modifier ou completer un air deja en- 
registre. 

MUSIC peut etre utilise simplement 
pour jouer ou dechiffrer une parti- 
tion. II code chaque note ou silence 
sur 10 octets et peut interpreter des 
airs de 870 notes. Sous cette forme, 
les airs de musique sont affichables, 
executables, modifiables... 

II peut egalement servir a creer des 
sequences musicales destinees a ani- 
mer d'autres programmes. Les airs 
sont alors compactables pour cette 
application et chaque note n'est plus 
codee que sur 5 octets, avec pour 
consequence de supprimer les possi- 
bility de modification et d'affichage 
(la presentation de la disquette 
donne des explications detaillees 
pour cette utilisation). 



Mode d'emploi 

Chaque note ou silence demande 4 
a 6 parametres pour sa definition : 



• Note :DRMFSLZ0, respecti- 
vement pour DO, RE, MI, FA. 
SOL, LA, SI et SILENCE. 

• Alteration : B D ESPACE, pour 
Bemol, Diese et Becarre. 

• Octave : un chiffre de 1 a 4. 

• Duree : K C N B R, pour double- 
croche, croche, noire, blanche et 
ronde. 

• Point : POINT ou ESPACE, selon 
que la note est pointee ou non. 

• Liaison : S (aux notes suivantes), 
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P (aux notes precedentes). 2 (les 
deux). 

Les notes ou silences sont entres 
sous le format NAODPL, soit Note- 
Alteration-Octave-Duree-Point-Liaison. 
Exemples : 

Mi-3 ; bemol ; blanche ; pointee ; liee 
suivante : MB3B.S 

Demi-pause : B 

Si, au lieu de taper une note, on 
tape : 

X : on retourne au menu 

/ : on annule la derniere note entree 
(on ne peut annuler plusieurs notes 
que si elles ont la meme duree. mais 
le programme ne le controle pas, ce 
qui impose une certaine auto-disci- 
pline ou a defaut la destruction de la 
mesure dont la duree ne sera plus 
bonne). 

II n'y a pas d'armure a la cle et 1* alte- 
ration doit done etre precisee a cha- 
que note. 

La machine n'affiche pas les dieses 
mais les convertit en bemols. par 
exemple RE diese en MI bemol. soit 
exactement le meme son. 



L'ecran fournit un certain nombre 
dedications : 

TE : tempo des mesures a venir 

TI : tempo le plus bas dans le mor- 
ceau 

TA : tempo le plus haut 

RY : rythme (2, 3 ou 4 temps) 

NT : nombre de temps deja occupes 
dans la mesure en cours de creation. 

Pour information, le message ME- 
SURE INCOMPLETABLE ANNU- 
LEE concerne une mesure qui ne 
pourrait etre completee que par une 
triple-croche (non disponible). 

Catalogue des 
programmes 

• BONJOUR MUSIC : programme 
de salutation qui fixe le debut du 
programme Basic en $6200 et 
lance I'execution. 

• MUSIC : programme principal en 
Basic. 

• PRGMA : programme generateur 
de sons en assembleur. 



• PRGMA-K : programme similaire 
destine a jouer les morceaux 
compactes. 

• PGRMA-K-RELOCATOR : reloge 
PGRMA-K au gre de l'utilisateur. 

• AFF.MES : programme en assem- 
bleur d'affichage de la partition. 

• NOTSHAPES : tableau de formes. 

• - O Y&& : generique musical. 

• Des airs codes sur 10 octets, ter- 
mines par un &. et qui se char- 
gent en $4000. 

• Des airs compactes sur 5 octets 
avec adresse de debut et lon- 
gueur; ils sont relogeables sans 
probleme pour etre joues par 
PGRMA-K. 

NDLR - Comme pour le H-Basic. 
l'auteur touchera 10% des ventes du 
programme a titre de droits d'auteur. 
Pour toute diffusion en collaboration 
avec des editeurs etrangers, l'auteur 
touchera 50% du resultat net. Dans 
le numero 11, nous vous propose- 
rons probablement le D-DOS. un lo- 
giciel comportant plein d'utilitaires 
pour le DOS et vous permettant d'en 
ecrire facilement. 



LA PHOTOCOMPOSITION EH PROLONGEMENJ DE LA MICPO-MORMATWUE 




TRANSMETTEZ-NOUS VOS TEXTES 

PAR TELEPHONE p— 

ou o 

DONNEZ-NOUS VOIRE DISQUETTE -±- 




Les textes de Oos articles, catalogues, annuaires ou brochures 
saisis sur Ootre APPLE sont enOoues directement sur notre photocom- 
poseuse. 

Nous Vous euitons ainsi, le cout et le temps de la saisie supple- 
mentaire Hue necessite le traitement traditionnel de la photocompo- 
sition aVant t'impression des documents, si Vous le desirez nous pou- 
Uons egalement nous charger de {'impression et du brochage. 
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Micro-informations 

Jean-Frangois Duvivier 



Tous les prix indiques dans cette ru- 
brique sont des prix TTC en francs 
frangais, sauf indication contraire. 
Ces prix sont indicatifs : il est possi- 
ble que certains aient evolue entre le 
moment de la redaction de la revue 
et le moment ou elle vous parvient. 

Imprimantes 

Le marche des imprimantes pour 
micro-ordinateurs a usage personnel 
accueille un nouveau concurrent : 
Mannesmann Tally, entreprise deja 
ties connue pour ses imprimantes 
haut de gamme. Son dernier mo- 
dele, la Spirit 80 (80 colonnes. 80 
caracteres par seconde) attire imme- 
diatement l'oeil par sa ligne tres reus- 
sie. Ce n'est heureusement pas sa 
seule qualite. La Spirit 80 dispose de 
possibilites graphiques et de jeux de 
caracteres similaires a ceux de 1' Ep- 
son MX80, avec des codes de 
controle comparables, ce qui facilite 
les problemes d'interfacage avec les 
logiciels existants. Mais le plus remar- 
quable concerne sa tete d' impression 
qui utilise des aiguilles de section car- 
ree et non plus circulaire comme sur 
les autres machines. Cela permet une 
definition amelioree des caracteres. 
Un trait reste un trait et non plus une 
succession de points, si rapproches 
soient-ils. La qualite d'impression est 
egalement amelioree par 1' utilisation 
dun ruban plastique qui offre une 
excellente homogeneite de l'impres- 
sion (mais peut-etre au detriment de 
la duree de vie du ruban). Dernier 
atout, son prix : 3500 F seule ou 
4500 F avec interface graphique. 
Chez Microperiph. 

Une marque d' imprimantes alleman- 
des, Robotron. est maintenant impor- 
tee par C. DATA. Deux modeles a ai- 
guilles dans la serie 6310. avec trois 
largeurs de caracteres (10, 12,5 et 15 
cpi) extensibles en double largeur, 
offrent 100 cps en version 80 colon- 
nes (3250 F HT) ou 132 colonnes 
(4250 F HT). Le modele a margue- 
rite, pour 40 cps, se vend 9.950 F 
HT. 

En ce qui concerne les imprimantes 
couleur, notons tout d'abord la 
GP700 de Seikosha presentee au 
dernier SICOB et disponible chez la 
plupart des revendeurs (environ 
5500 F). ESP, pour sa part, nous 
propose une approche originale, en 
prenant le probleme a l'envers : il 
transforme une imprimante normale 



(1'Epson MX80 pour ne pas la nom- 
mer) en une imprimante couleur. Le 
kit propose inclut quatre rubans cou- 
leur (noir, rouge, jaune. bleu et vert) 
ainsi qu'un logiciel et permet l'im- 
pression en couleur de l'ecran gra- 
phique. Pas de modifications sur 
l'imprimante (en dehors du ruban) ni 
sur l'interface. Et un prix raisonnable, 
meme au cours actuel : $70. 

Autre nouveaute. l'interface impri- 
mante PRINT-IT de TextPrint qui 
permet d'imprimer par Taction sur un 
bouton la page texte ou haute reso- 
lution, ceci quelque soit le pro- 
gramme en memoire. Bien entendu, 
une fois I' impression terminee. le 
programme reprend son execution 
comme si rien ne s'etait passe. C'est 
une methode tres interessante pour 
sortir les ecrans des disquettes prote- 
gees par exemple. L'interface sup- 
ports les imprimantes classiques : 
Epson, Nec, Apple. Oki ainsi que les 
imprimantes couleur IDS et Transtar. 
Prix a 1' unite : $300. 

Apple Computer vient de lancer un 
traceur (table tragante) couleur 
(Apple Plotter Model 410) compati- 
ble avec Business Graphics. Les 
crayons de couleur (jusqu'a 4 en 
meme temps) peuvent etre changes 
en cours d'operation afin d'obtenir 
une grande variete de couleurs. La 
surface utile est de 28 x 43 cm. Le 
traceur se connecte directement a 
l'Apple /// ou. dans le cas de l'Apple 
II ou lie. a une carte serie. Prix : 
$8865 F HT. 

Si le prix vous fait hesiter. pourquoi 
ne pas regarder du cote du traceur 
MCP 40 ? Quatre crayons couleur in- 
terchangeables. mais le trace s'effec- 
tue sur un rouleau de papier ordi- 
naire de 11,5 cm de large (dont 9,6 
utilisables). Des performances hono- 
rables : 12 caracteres par seconde en 
mode texte, 5 a 7 cm/s en graphi- 
que, interface parallele Centronics et 
un prix tout petit (a la mesure de 
l'encombrement de I'appareil) : 2295 
F. Disponible chez Sivea. A noter 
que la meme mecanique est 
commercialisee egalement sous le 
nom BFM 10. 



Ecrans sensibles 

Le battage publicitaire autour de la 
"souris" semble en faire le "nec plus 
ultra" en ce qui concerne la commu- 



nication homme-ordinateur. C'est 
oublier un peu vite deux autres pos- 
sibilites egalement interessantes : le 
crayon lumineux et l'ecran sensitif. 
Premier systeme mis sur le marche, 
le crayon lumineux n'a pas eu le de- 
veloppement escompte malgre des 
possibilites valables. Quelques mode- 
les sont disponibles sur Apple, mais 
rares sont les programmes qui I'utili- 
sent (au contraire de I'ordinateur 
TO7 de Thomson qui propose un tel 
equipement en standard). 

Le concept d'ecran sensitif a ete de- 
veloppe par Control Data pour son 
systeme d'enseignement assiste par 
ordinateur Plato (maintenant disponi- 
ble sur Apple, mais sans ecran sensi- 
tif !). Quoi de plus naturel en effet 
que de pointer du doigt la 
commande necessaire au bas de 
l'ecran ou dans le menu ? Le nouvel 
ordinateur de Hewlett-Packard, le 
HP150. dispose en option de base 
de telles facilites. Sur Apple. CTA 
propose une carte et un ecran s'ap- 
pliquant sur tout moniteur 12 
pouces. La technique utilisee met en 
jeu des faisceaux infrarouges qui, 
lorsqu'ils sont interrompus (par le 
doigt ou tout autre objet). permettent 
d'en deduire les coordonnees X.Y du 
point. Le CTA 500X offre une reso- 
lution de 96 x 64 points. Les coor- 
donnees de la surface pointee sont 
mises a jour continuellement et sont 
accessibles par le Basic Applesoft (et 
les programmes en langage ma- 
chine). Prix USA : $695. 

Cartes 

Avis aux fanatiques du 68000 (et de 
l'Apple) ! Vous pouvez trouver la 
carte Aristocard 68000 de Simon 
Computers chez Microperiph. Ce 
n est certes pas la seule carte 68000 
disponible sur Apple, ni la plus ela- 
boree. mais c'est d'une part la pre- 
miere que j'ai vue en France, d'autre 
part la moins chere. Le package in- 
clut la carte, une disquette contenant 
un macro-assembleur 68000 et le 
manuel de reference de Motorola (en 
anglais). Si malgre votre experience 
sur Apple, l'anglais vous pose encore 
quelques problemes, vous pouvez 
toujours acheter le manuel de refe- 
rence publie en frangais par Thom- 
son Efcis qui fabrique le 68000 en 
seconde source. Ceci dit, cette carte 
doit etre reservee pour un usage di- 
dactique : connaissance du 68000 et 
de ses instructions, avec eventuelle- 
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ment possibility de developper un 
systeme plus complet a partir de la 
carte. En effet. l'Aristocard ne dis- 
pose d'aucun langage (excepte las- 
sembleur) ni de logiciels evolues. De 
meme. aucun systeme d'exploitation 
n'est prevu pour utiliser les disquettes 
(il est vrai que 140K de memoire de 
masse pour un microprocesseur qui 
peut adresser jusqu'a 16 mega-octets 
de memoire centrale. ce n'est pas le 
Perou..). Une carte interessante, pas 
trop chere (4900 F). mais a reserver 
aux amateurs avertis. 

Ceux qui voudraient utiliser le 68000 
avec un environnement logiciel plus 
complet (Fortran, Basic. Pascal, 
Forth...) peuvent se reporter a la pu- 
blicity Alpha-Systemes parue dans 
l'Ordinateur Individuel d'octobre 83. 

Enfin. a tout seigneur tout honneur. 
je finirai ce petit panorama des cartes 
68000 par ce qui semble en etre la 
Rolls : la DTACK Grande de Digital 
Acoustics : microprocesseur 68000 a 
10 MHz. 1 mega-octet de memoire, 
possibilite de travailler en multita- 
che... A ce niveau-la. 1' Apple n'est 
plus qu'un peripherique de la carte 
68000 ! Prix non communique, mais 
certainement non negligeable par 
rapport a celui du systeme Apple 
complet. 



Une carte dont nous ne vous avions 
pas encore parle : la carte Micromos 
256K pour Apple II et lie se 
comporte comme deux fois huit 
cartes langage. L'adressage peut se 
faire par bus-adresses (1 bloc parmi 
8) ou par bus-donnees (1 bloc parmi 
16). Plusieurs logiciels d'emulation 
disque sont fournis avec la carte en 
standard. 

Enfin disponible en France chez BIP, 
la carte accelerateur a 3.58 MHz 
dont nous avions parle dans le nu- 
mero 8. Prix public : 4514 F HT. BIP 
propose aussi la carte Ultraterm 80 
colonnes a 4230 F HT : de 80 colon- 
nes par 24 lignes a 160 colonnes par 
24 lignes. en passant par 80 colon- 
nes et 48 lignes... Cette carte fonc- 
tionne indifferemment sur II Plus, He 
ou ///. 

La carte Outix est une creation re- 
cente commercialisee par Logma : 
elle est destinee a etre inseree dans 
un Apple pour former avec lui un 
outil de developpement pour micro- 
processeurs. 

Particulierement commode pour tra- 
vailler avec les versions "piggy back" 
des microcalculateurs monochip, 
grace a sa sonde directement 
connectable, elle permet la program- 
mation en assembleur ou en hexade- 



cimal, ["emulation et le debugging 
d'un microprocesseur prototype. 

Des le debut 84, vous pourrez ache- 
ter chez tous les revendeurs Apple la 
carte Apple-Tell fabriquee par Hello. 
Pour 5400 F HT. vous aurez une 
carte compatible II Plus et lie qui 
joue les trois roles suivants : fonction 
Minitel Videotex complete, modem 
automatique multimode integre (300, 
600 et 1200 bauds), et cohabitation 
transparente avec les fonctions. logi- 
ciels et materiels habituels de I' Apple. 



Peripheriques 

Apple vient de sortir le moniteur //, a 
present vendu en standard avec les 
systemes promotion, et dont nous 
apprecions le dispositif d'inclinaison 
de l'ecran. 

Avec quatre ou cinq cartes dans ses 
slots. I' Apple est toujours un ordina- 
teur, mais s'apparente egalement a la 
famille des radiateurs. Ce qui est tres 
mauvais pour sa sante. Solution 
eprouvee : ameliorer I'aeration grace 
a un ventilateur. Inconvenient ma- 
jeur : un ronronnement permanent 
qui met les nerfs a rude epreuve. 
Nouvelle solution : le ventilateur de 
PACT Electronics qui se revele eton- 
nant au niveau sonore. Comme la 
plupart de ses bruyants congeneres. 
il se place sur le cote gauche de 1' Ap- 
ple sans aucun demontage et dispose 
d'un interrupteur lumineux sur sa 
face avant. Prix : 750 F chez Micro- 
periph. 

Logiciel 

A ce jour, le meilleur programme de 
jeu d'echecs sur Apple est Chess 7.0 
de Larry Atkin. Introduit au debut de 
l'annee, il presente des possibilites 
tout a fait etonnantes face aux pro- 
grammes precedents : possibilite de 
reprendre ses coups, de changer les 
pieces de place, de jouer en aveugle. 
de sauver la partie en cours sur dis- 
quette... Pour ne pas etre en reste. 
Hayden Software presente Sargon 
III, successeur du tres connu et ap- 
precie Sargon II. Jeu ameliore, coups 
plus rapides et possibilites nouvelles 
devraient en faire un best-seller. 

Dans les nouvelles versions de pro- 
grammes, citons egalement DB Mas- 
ter version IV qui replace Stoneware 
dans les premieres places face a ses 
autres concurrents sur le marche 
francais : CX Base, Omnis et dBase 
II. 

Voici egalement un nouvelle vague 
de programmes de copie, categorie 



tres prisee par les possesseurs d'Ap- 
ple. Locksmith 5.0. Back-it-up III et 
EDD (Essential Data Duplicator) de- 
vraient vous permettre de faire des 
backups de vos programmes origi- 
naux (et a seule fin de sauvegarde !). 

Pom's vient de recevoir le celebre In- 
credible Jack, qui permet de faire si- 
multanement du traitement de texte, 
de la gestion de fichier et des calculs. 
Vendu $129 par Business Solutions, 
ce programme sera analyse pour 
vous dans le numero de mars 84. 

Encore un programme de creation 
graphique avec Charts Unlimited, qui 
propose 36 formes predefinies, 36 
symboles predefinis. reduction ou 
agrandissement d'objet. des droites 
en trait plein ou pointilles, une capa- 
city d'edition de texte. la reproduc- 
tion d'objets a d'autres endroits. Le 
tout, compatible avec les impriman- 
tes Epson, IDS, Itoh, Apple, NEC et 
Anadex et les interfaces Parallele et 
Super Serie Apple (entre autres) 
pour $195 aux Etats-Unis. C'est un 
produit de Business Information Sys- 
tems. 

Logifiche II, est un logiciel de gestion 
de fiches comportant de nombreuses 
possibilites de calcul, de traitement 
automatique et d'edition, ainsi que 
des possibilites de recherche multicri- 
tere poussees. En vente par CFNI a 
1200 F HT, c'est un programme que 
nous analyserons pour vous. 



Autre logiciel francais, Epistole est un 
traitement de texte pour Apple II 
ou //e realise par Micro Assistance et 
compatible avec Visicalc, Magicalc et 
Multiplan. II est vendu 2000 F HT, 
est compatible avec les cartes 80 co- 
lonnes, et permet 1' execution de mai- 
lings, la vision de textes preformates 
et 1' utilisation d'un glossaire, entre 
autres possibilites. 



Adde Marketing vient de sortir la ver- 
sion 7.0 de Decisionnel Graphique 
pour Apple. Voir notre banc d'essai. 



Le cours Basic d'Andre Finot est 
maintenant vendu avec un aide-me- 
moire de 80 pages. Le cours s'ap- 
pelle maintenant "Lena 1"; le prix 
helas a augmente. Voir le banc d'es- 
sai publie dans le Pom's 7. 



Futurs produits Apple 

Les prochains mois verront 1' appari- 
tion de deux nouveaux produits 
Apple. D'une part un nouveau sys- 
teme d'exploitation destine a succe- 
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der au DOS 3.3 et nomme ProDos. 
Tres proche du SOS (Sophisticated 
Operating System) utilise sur 
Apple ///, il permettra notamment de 
s'affranchir de la limite de 140K de 
1' unite de disquette Apple. L' utilisa- 
tion de disques durs, actuellement 
basee sur des partitions en volumes 
de 140K, sera done beaucoup plus 
aisee. De plus, la structure hierarchi- 
que du ProDos (identique a celle du 
SOS) permet de mieux organiser sa 
memoire de masse quand un grand 
nombre de fichiers y sont stockes. 
ProDos est actuellement reserve aux 
auteurs de logiciels. afin de leur per- 
mettre d'en tirer avantage dans leurs 
nouveaux produits. II ne devrait etre 
en vente "publique" qu'au debut de 
Pannee 84. II permettra d'utiliser un 
Profile sur Apple II Plus et //e ; les 
disquettes formatees en ProDos se li- 
ront indifferemment avec les Apple II 
Plus, //e ou ///. Les lecteurs de dis- 
quettes Unifile et Duofile de 850K 
ont ete abandonnes pour 1' Apple /// 
et /Ve, car trop chers ; on entend par- 
ler de nouveaux lecteurs de disquet- 
tes 800K debut 84 : e'est logique, car 
avoir le ProDos pour se limiter a 
140K ne serait pas tres malin... 

Janvier 84 devrait egalement voir ap- 
paraitre le nouvel ordinateur Apple 
Macintosh, sur lequel on ne dispose 
encore que de peu d'informations, si 
ce n'est qu'il utilisera comme Lisa un 
microprocesseur 68000. Le prix de- 
vrait etre inferieur a 20000 F HT. 



Apple ne reste pas non plus inactif 
dans le domaine de la lurte contre les 
copies de son materiel. Un proces est 
actuellement intente aux Etats-Unis 
contre Franklin Computer Corp. qui 
fabrique le tres connu Franklin Ace, 
"compatible" Apple II. Malheureuse- 
ment pour eux, le Franklin Ace utilise 
une ROM moniteur identique a celle 
de FApple (evident, mon cher Wat- 
son ! Pour etre compatible...). Le 
premier jugement rendu deboutait 
Apple de sa demande, le juge esti- 
mant que le contenu d'une ROM ne 
pouvait pas etre copyrighte. En 
appel, la decision etait annulee et le 
cas renvoye devant le premier juge 
pour une etude plus approfondie du 
probleme. Jugement final dans les 
mois a venir... 

Quoiqu'il en soit. Franklin Computer 
Corp essaie de diversifier ses pro- 
duits, puisqu'elle annonce la sortie 
prochaine d'un modele portable 
compatible IBM (mais qui permettra 
P utilisation du DOS Apple et du 
CP/M). 

Certains constructeurs de "compati- 
bles" ont semble-t-il trouve la parade 
en commercialisant des copies non 



equipees de PROM. L'utilisateur 
devra en faire des copies ou se les 
procurer a ses propres risques. D'ou 
une floraison de publicites pour de 
tels ordinateurs avec les mentions 
"No more copyright problems" ou 
meme "Legal copy" !!! 



Divers 

Sivea. distributeur Apple tres connu, 
publie son catalogue 83/84. avec 80 
pages dont 25 consacrees a P Apple 
(materiels. peripheriques et logiciels) 
et une liste de prix. Le tout pour 15 
F remboursables au premier achat de 
plus de 150 F. 

Finlord est une societe specialisee 
dans la location de petits materiels 
informatiques (Apple. Commodore. 
Sharp...). Contrats de 6 mois a 5 
ans. 



chiffres pour aboutir a un classement 
par point. Egalement dans le meme 
numero. une revue de cinq grands 
serveurs americains de banques de 
donnees. dont The Source et Com- 
puserve. 

Softdisk est un magazine sur dis- 
quette qui inclut informations, pro- 
grammes, publicites. jeux. demons- 
trations de programmes com- 
merciaux... Deux disquettes double 
face sont editees chaque mois. L'es- 
sai pour un mois coute $10. L'abon- 
nement a Pannee $55. 

JCR lance des micro-boutiques JCR 
dans des magasins de Hi-Fi Video : 
voila une idee originate de franchise 
partielle qui devrait encore augmen- 
ter le nombre d'endroits ou Pon 
pourra trouver Pom's... En ce qui 
concerne les boutiques, sachez aussi 
que Pon peut maintenant trouver les 
disquettes de Pom's a la Librairie 
d'Aujourd'hui. 




Software Publishing publie 4 fois par 
an PFS:News. brochure dediee aux 
produits de la famille PFS. Contenu : 
information sur les nouveaux pro- 
duits, amelioration du PFS. conseils 
d'utilisation. etc... 

Avant d'acheter un nouveau logiciel, 
n'oubliez pas de consulter la rubrique 
Fastalk dans Softalk (mensuel ameri- 
cain disponible chez Sivea). Elle de- 
crit brievement les meilleurs logiciels 
dans chaque domaine et vous per- 
met ainsi de vous faire une idee des 
principaux logiciels du marche. 

A noter dans le dernier numero de 
Peelings (volume 4 numero 6, chez 
Sivea) une comparaison approfondie 
de 18 logiciels de traitement de texte. 
Un grand nombre de criteres ont ete 
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hiers a cause de cette 
de la faoon suivante : 
cemple "Courrier.d2" cor 
e fichier actif ; j'ai fait "CI KL- 
un moment donne pour 
...lseigner sur le catalogue d'une 
vegarde du tichier sous le nom appa- disquette dans le drive L Puis, 
raissant sur la 
"Fich:". Le sign 

entrer le nom du fichier. J'ai egare Courrier,d2". a sauvegarde 



nom np t 

AW //e afire la possible interessante O ADT 
d'autoriser avec "CTRL-S =" la sau- me rense 



fecharg. 



et je fus tres surpris, en 
t ulterieurement ce fichier 
)difie de le re- 
etat initial. Conclu- 



igne superieure apres quand j'ai sauvegarde avec "CTRL-S ,d2 . 
ie "=" evite de devoir =". AW//e, bien qu'affichant "Fich: 



Hervel 
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Initiation a Visicalc, de Christian 
Baudry. Masson - 152 pages - 80 
francs. 



II s'agit la beaucoup plus d'un mode 
d'emploi que d'un livre d'initiation : 
en effet, aucun exemple autre qu'ele- 
mentaire n'est presente; en outre, on 
n'y trouve pratiquement pas les trues 
d'utilisation qui permettent justement 
d' exploiter au mieux le tableur. Le 
format DIF est totalement ignore. 
Ceci dit, le livre est clair et facile a 
lire. 



Maglcalc Tutorial de Christian 
Dubois, Mnemodyne - 385 pages. 

Malgre son titre foncierement anglo- 
phone, cet ouvrage est en fran§ais: il 
comporte deux parties : l'apprentis- 
sage puis les exemples, au nombre 
de dix. Rien a dire, l'ouvrage semble 
bien atteindre son objectif. Nous le 
conseillons aux acheteurs de Magi- 
calc. 



Multiplan sur Apple, de Philippe 
Bonnet et Manh T. Dinh, Edimicro - 
200 pages - 85 francs. 

C'est le premier livre sur la version 
franchise de Multiplan. II apporte les 
moyens d'un bon apprentissage de 
base avec de nombreux exemples 
d'application. On pourra regretter 
qu'il presente seulement une utilisa- 
tion de base de Multiplan, sans en 
profiter pour donner des trues de 
fonctionnement : il ignore par exem- 
ple l'avantage que Ton a souvent a 
delimiter une zone en englobant les 
cellules visees, plutot que de la pre- 
miere a la derniere cellule. 

20 progiciels-outils pour Apple 

II, de Jean-Louis Marx et Alain Thi- 
bault. Editions du PSI - 248 pages - 
122 francs. 

II s'agit de vingt bancs d'essai : deux 
tableurs, quatre traitements de texte, 
huit programmes de gestion de fi- 
chiers et six "divers". Le travail est 
bien fait, mais on prefererait presque 



avoir des analyses plus approfondies 
encore, quitte a ce que cela corres- 
ponde a un nombre de programmes 
plus restreint. Une bonne idee : cha- 
que analyse se termine par un ta- 
bleau d' evaluation multicritere a 
completer par le lecteur. 

Pascal for the Apple.de lain Mac- 
Callum, Prentice Hall - 66 Wood 
Lane End. Hemel Hempstead, Herts, 
HP2 4RG, Royaume Uni-495 pages 
et une disquette - $27,95. 

Nous vous parlons de ce livre avec 
disquette de fagon enthousiaste, bien 
qu'il soit en anglais, car il s'agit d'un 
excellent cours de Pascal avec des 
travaux pratiques facilites par la dis- 
quette d'accompagnement. Selon 
l'auteur, il faut compter 80 heures 
sur 1' Apple et 80 heures en lecture 
seule pour digerer cet ouvrage dense 
et complet. Nous n'avons pas eu le 
temps de le faire mais, vu ce que 
nous avons lu en diagonale, nous 
pensons que le but a toutes les chan- 
ces d'etre atteint. 
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Courricr des lcctcurs 

Olivier Herz 



Je tiens a vous informer d'un bug 
dans Applewriter e et d une me- 
thode pour le contourner qui sera 
utile, je pense. a de nombreux lec- 
teurs. En effet. AW e ne prend pas 
en compte le caractere CTRL-(<i qui 
correspond au code ASCII et per- 
met. entre autres. 'd'envoyer des 
commandes a l'imprimante. Pour 
l'Epson. en particulier. il annule le 
soulignement ou I'ecriture d'expo- 
sants. La solution est la suivante : 

* avec la carte 80 colonnes eten- 
due : 

1 BLOAD OBJ.APWRT2F.A$2300 
] CALL -151 

* 2782.7F 

* 4A34:7F 

* 3D0G 

1 BSAVE OBJ.APWRT2F.A$2300. 
L$30D1 

* autrement : 

! BLOAD OBJ.APWRT2E.A$2300 

1 CALL -151 

*26E2:7F 

* 48BB-.7F 

* 3D0G 

] BSAVE OBJ.APWRT2E.A$2300. 
LS2F58 

Avec ces modifications, on peut in- 
corporer CTRL-(u dans un texte ou 
dans un glossaire et beneficier ainsi 
de toutes les possibilites de l'impri- 
mante. 

Gerard Rigaud - 125 chemin des 
Jonquilles - 13013 Marseille 

Nous vous remercions de ce rensei- 
gnement et encourageons les lecteurs 
qui auraient des informations de 
meme nature a nous les faire parve- 
nir. afin que tous beneficient de leur 
experience. 



Le petit programme bien utile que je 
vous propose ci-dessous ajoute une 
instruction au DOS. I 'instruction 
TDUMP. qui realise le dump sur 
ecran ou imprimante de tout ficbier 
sequentiel. TEXT ou EXEC. La syn- 
taxe est tout simplement "TDUMP 
nomfic [.Si! l.Dj] [.Vk]" ou "nomfic" 
est le nom du fichier et ou les cro- 



chets indiquent des parametres facul- 
tatifs. 

La touche CTRL-Q interrompt defini- 
tivement la liste. Toute autre touche 
joue le role d'un interrupteur 
(arret' marche). 

10 REM DUMP FICHIER 

TEXTE 

11 REM COMMANDE REMP 

LACE CHAIN 

12 REM SYNTAXE: TDUM 

P FICHIER 
100 HEXS = "A893:54 4 
4 55 4D DO N 9 
D26:DE BC N BC 
DF:20 8E FD 20 

A3 A2 20 8C A 
6 FO 12 20 ED 
FD AD CO 10 
F3 8D 10 CO 20 

IB FD C9 91 D 
E9 20 FC A2 
60 N D7D2G" 
110 FOR I = 1 TO LE 
N (HEXSO: POKE 

511 ♦ I, ASC 
< MIDS3 <HEXS,I 
,1)) + 128: NE 
XT : POKE 72,0 
: CALL - 144 

Yvan Koenig - Rue du Stade - 
06220 Vallauris 



< 1 > J'ai appris Tassembleur en 
autodidacte. Dans ma progression, 
j'en arrive au DOS. Je pense savoir 
mettre en oeuvre la routine RWTS 
(manuel DOS. page 89). A titre 
d'exercice. je voulais modifier le nu- 
mero de volume d'une disquette. Ce 
numero se trouve dans la VTOC. 
piste $11. secteur $00. octet $06 
(page 125). II faut done lire ce sec- 
teur. le modifier, puis le reecrire. 

J'ai suivi les consignes page 91. En 
lecture, tout va bien. la zone $2000- 
20FF qui serf de buffer recoit bien la 
VTOC. En ecriture. la fin des opera- 
tions se solde par un bip ! La consul- 
tation de la table IOB nous donne la 
valeur $20 dans IBSTAT : Volume 
Mismatch. Neanmoins. une nouvelle 
consultation de la VTOC prouve que 
1'octet du numero de volume a bien 
ete modifie. Mais une commande 



CATALOG donne Tancien numero. 
meme apres coupure du secteur. Ou 
le DOS va-t-il chercher cette informa- 
tion ? 

< 2 > Apres plusieurs tentatives in- 
fructueuses en assembleur. je me de- 
mande comment on peut s'y prendre 
pour tracer un cercle vite fait. Avez- 
vous la reponse ? 

< 3 > Void aussi quelques trues 
pour les lecteurs de Pom s 

Si on tape CTRL-J dans une REM. 
on passe a la ligne suivante. On peut 
separer des routines tres clairement 
sans ajouter des lignes numerotees 
comportant des ": " ou autres REMs. 
On peut bien sur inserer un 
commentaire entre deux series de 
CTRL-J. Tout cela marche aussi sur 
imprimante. 

On peut avoir des commentaires en 
minuscules sur une Seikosha GP100. 
11 suffit d'encadrer les commentaires 
de CTRL-Z (tant en Basic qu'en 
ToolKitl. Les commandes CTRL-0 
et CTRL-N sont aussi reconnues. 

Erick Ringot - 62/71 rue Jean Bart - 
59290 Wasquehal 

< 1 > Le DISK VOLUME : si I on 
s'en tient aux secteurs tels qu'on 
peut les lire avec RWTS. le probleme 
semble effectivement incomprehensi- 
ble. Mais la "bible" en matiere de 
DOS (le celebre BENEATH APPLE 
DOS) montre que le numero de vo- 
lume apparait physiquement sur la 
disquette. On le trouve en effet dans 
le champ d'adresses de chaque sec- 
teur de chaque piste de la disquette. 
Ce champ d'adresses, qui est a op- 
poser au champ de donnees dont le 
decodage par RWTS fournit les 256 
octets bien connus. contient entre 
autres les numeros de secteur, piste 
et volume ainsi que le "checksum" 
du secteur. Ceci explique pourquoi il 
est impossible de changer le numero 
d une disquette avec le DOS autre- 
ment qu'en la re-initialisant. le nu- 
mero de volume dans le VTOC ne 
servant qu'a etre lu par un utilisateur 
eventuel desirant le connattre. 

< 2 > Le trace d'un cercle en haute 
resolution sur 1' Apple a toujours ete 
quelque chose d'assez long. Je vous 
propose neanmoins deux voies de 
recherche qui pourraient diviser le 
temps de trace par deux, ou trois au 
maximum : 
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- Tracer un polygone regulier, ayant 
suffisamment de cotes pour etre 
confondu avec un cercle. Tout le 
probleme consiste a faire coi'ncider 
les deux bouts (cf. le programme de 
demonstration de HAIFA dans le nu- 
mero 5 de Pom's). 

- Calculer au prealable les sinus et 
les stacker dans une table. 

< 3 > Merci pour vos trues et astu- 
ces pour imprimante. 



Lorsque je fais tourner PFS ou PFS 
Report avec la carte Chat Mauve, je 
ne parviens plus a imprimer. Y a-t-il 
une autre solution que d'enlever la 
carte pour pouvoir imprimer (NDLR : 
Yappareil etant eteint. bien en- 
tendu) ? 

Bruno Piat - Centre Technique du 
Cuir - BP 7001 - 69342 Lyon Cedex 
07 

Nous savons que la carte Chat 
Mauve est incompatible en Pascal 
avec 1' imprimante Epson accompa- 
gnee de sa carte graphique. Ce doit 
etre le probleme que vous avez ren- 
contre, puisque PFS est ecrit en Pas- 
cal. Si vous avez une autre impri- 
mante, vous pouvez telephoner au 
repondeur de Chat Mauve : (1) 
201.67.73. 



1 - Pouvez-vous m'indiquer la me- 
thode qui permet de formater une 
disquette sans champ adresse mais 
en chargeant plus rapidement les 
programmes en utilisant des relations 
de temps entre chaque secteur ? 

2 - Quelles sont les raisons qui ont 
pousse Ediciel a organiser un 
concours de deplantage de la dis- 
quette Naja. alors que la protection 
est super -minimale ? 11 ne faut pas 
plus de quelques heures pour en 
faire un COPYA en modifiant quel- 
ques petites choses. 

J.-L. Lagrange - 150 rue du Mai. 
Oudinot - 54000 Nancy 

1 - Je ne peux vous expliquer en 
quelques lignes la methode pour ini- 
tialiser une disquette en permutant 
l'arrangement des secteurs. afin de 
charger plus rapidement les program- 
mes. Lisez pour cela Bag of Tricks et 
le numero special de Call Apple : All 
about DOS. 

2 - En ce qui concerne la disquette 
Naja, je pense que l'objectif etait 
avant tout publicitaire. 

Nous venons de recevoir un 
Apple //e. La notice n'est pas telle- 



ment explicite au sujet des 16K qui 
portent la memoire a 64K. Pourriez- 
vous me dire : 

Ou se trouvent les 16K ? 

Quelles adresses les declenchent ? 

Comment on s'en serf dans un pro- 
gramme ? 

Ou se trouve alors la HIMEM ? 

Jean-Claude Baron - Lieudit Courbet 
- Montaigu s/Save - 31530 Levignac 

Voici quelques eclaircissements sur 
les 16K supplementaires de l'Ap- 
ple He. qui sont compatibles au point 
de vue soft avec les cartes 16K de 
I" Apple ][. 

Carte de la memoire : 



FFFF 






ROM 




Moni- 




teur 




et 


E000 




DFFF 






Apple- 




soft 


D000 





RAM 




Bank 1 
(4K) 


Bank 2 
(4K) 



Comme les 4K $C000-$CFFF sont 
reserves aux entrees-sorties, on ne 
peut adresser les 64K, mais seule- 
ment 60. On a done 12K de RAM 
adressable supplemental ($D000 a 
$FFFF), en parallele avec la ROM. 
Mais les constructeurs, voulant offrir 
16K, nombre plus parlant. ont fourni 
deux fois en parallele les 4K $D000 
a $DFFF, zones appelees BANK1 et 
BANK2. Pour savoir quel BANK le 
microprocesseur adressera et pour 
savoir si Ton adresse la RAM ou la 
ROM. il faut des adresses de 
controle. 

Adresses de controle : 

Pour pouvoir utiliser une adresse, il 
suffit d'y acceder. e'est-a-dire faire un 
PEEK ou POKE en Applesoft ou un 
LDA, STA, BIT, CMP, etc. en lan- 
gage machine. 

$C080 (-16256) selectionne la RAM 
en lecture, le BANK2 et empeche 
l'ecriture sur la RAM. 

$C081 (-16255) selectionne la 
ROM en lecture, le BANK2 et per- 
met l'ecriture sur la RAM si l'adresse 
est adressee deux fois. 

$C082 (-16254) selectionne la 
ROM en lecture, le BANK2 et empe- 
che l'ecriture sur la RAM. 



$C083 (-16253) selectionne la RAM 
en lecture, le BANK2 et permet 
l'ecriture sur la RAM si l'adresse est 
adressee deux fois. 

$C088 (-16248) selectionne la RAM 
en lecture, le BANK1 et empeche 
l'ecriture sur la RAM. 

$C089 (-16247) selectionne la 
ROM en lecture, le BANK1 et per- 
met l'ecriture sur la RAM si l'adresse 
est adressee deux fois. 

$C08A (-16246) selectionne la 
ROM en lecture, le BANK1 et empe- 
che l'ecriture sur la RAM. 

$C08B (-16245) selectionne la 
RAM en lecture, le BANK1 et permet 
l'ecriture sur la RAM si l'adresse est 
adressee deux fois. 



Comment s'en servir ? 

Depuis un programme Applesoft, on 
ne peut pas tellement utiliser ces 16K 
supplementaires et la HIMEM reste 
celle d'un 48K. Toutefois, certains 
utilitaires permettent d' utiliser les pos- 
sibilites de ces 16K : des programmes 
qui, en mettant le DOS (mais pas ses 
buffers) sur ces 16K, permettent de 
monter la HIMEM a $B800 ; ou un 
utilitaire comme HAIFA (Pom's 5) 
dont une grande partie se charge sur 
ces 16K et qui, en abaissant la 
HIMEM a $8000 seulement, permet 
de doubler voire tripler la puissance 
de 1' Applesoft. En bref, 1' utilisation de 
ces 16K, a moins de servir de zone 
de stockage d' octets, reste le do- 
maine privilegie du programmeur en 
langage machine. 

Certains lecteurs, peu familiers avec 
l'assembleur, nous ont demande 
comment mettre en oeuvre le patch 
de la Hard Copy Seikosha indique 
page 36 dans le Pom's 9. 

Voici la sequence a suivre : 
] BLOAD SEIKO. OBJ, A$ 1800 
] CALL -151 

* 193F:90 

* 3D0G 

] BSAVE SEIKO.OBJ.A$1800, 
L$1DB 

Nous conseillons aux lecteurs qui ne 
savent pas trop comment entrer un 
programme en assembleur de lire 
i'article "Notions de base" de Gerard 
Michel dans le Pom's 3. 



Je me permets de vous signaler trois 
erreurs dans la publication de mon 
article Editeur-compositeur de texte 
dans le num&ro 9 de Pom's : 



*■ 



3tsottDant»aj 



Pom's n 10 



Page 12, milieu de colonne 1, ecrire : 
"Supprimer les lignes 50, 350, 9500 
a 10000" au lieu de... 9500 et 
10000; 

Haut de page 13 : les jours de la se- 
maine sont imprimis sur la 6" co- 
lonne a cause du ]T5 ; 

Page 16, les lignes 10 a 250 prece- 
dent evidemment les lignes 260 a 
370. 

Gerard Hisleur - 19 rue Edmond 
Rostand - 38320 Eybens 



Nous avons eu aussi une erreur de 
montage dans le True et Astuce page 
27 du N° 9 : le programme a ete 
oublie, ce qui n'etait pas genant pour 
les lecteurs abonnes aux disquettes 
qui etaient les premiers concernes ; 
en effet, ils l'ont trouve sur la dis- 
quette. Enfin, le voici : 



•300.31D 

0300- 02 17 Bfl 20 CI FB ffi 28 
0308- 85 FE 18 05 29 69 5C 85 
0310- FF AO 27 Bl FE 91 28 88 
0318- 10 F9 Cfl 10 E5 60 




Courrier des Clubs 



Prochaines reunions du club Ma 
Pomme 

- les jeux, par Michel Lavner : war- 
games, arcade, donjon, aventure, si- 
mulation... Le 18 janvier a 19 
heures, 110 avenue du General Le- 
clerc - Paris (14) 

- les applications audiovisuelles, par 
Bernard Buel : pilotage de diapo- 
rama, videodisques interactifs, lasers, 
etc. Le 15 fevrier a 19 heures, Mes- 
sage Audiovisuel, 60 rue Brancion - 
Paris (15). 

- les robots, le 21 mars a 19 heures, 
avenue du General Leclerc. 

Ma Pomme - 6 rue Paul Sauniere - 
75016 Paris. 




15, RUE DE LA CITE 
UNIVERSITAIRE, 
75014 PARIS. 




Computer 



Centre de vente et de demonstration de 
micro-ordinateurs, logiciels et pe-riph6riques 



Vau SUD de PARIS TEL mM S2 



COCHER LES CASES CORRESPONDANTES 



NOS PRIX PEUVENT ETRE MODIFIES SANS PRF.AVIS 



^cipplc computer 



MYSTERY HOUSE 340 FO 

GORGON 280 F 55 

COPS & R08BERS 255 FO 

CHOPFLITER 510FO 

EPIDEMIC 400 F 3 

FATHOMS 40 490 FQ 

THE SERPENT'S STAR 430 FD 

MASK OF THE SUN 580 FO 

DARK CRYSTAL 435 FO 

ESCAPE RUNGISTAN 345 F O 

WIZARDS PRINCESS 355 FO 

CROUSTON MANOR 355 FO 

ULYSSE 370 FO 

WYSARDRY 595 FO 

GERMANY 1985 660 F 

GUNS FORT DEFIANCE 290 FO 

BOMB ALLEY 660 FO 

BATTLE FOR NORMANDY 460 F D 

BATTLE SHILOH 460 F O 

GUADAL canal 700 FO 



VISIPLOT 

EZ-DRAW 

VISIFILE 

DESK TOP PLAN . . 
PROG. LINE EDITOR 
VISITREND/PLOT . . 
BAG OF TRICKS . . . 
PFS REPORT APP 2 . 
PFS FILE APPLE 2 . . 
VISIDEX . 



PFS GRAPF APPLE 2 1 



EDI-LOGO 

COMPTA GENERALE 

APPLE PLOT 

DOS TOOL KIT 

LISA 

DAKIN 5 

APPLE PILOT 

APPLE FORTRAN 

APPLE WORLD 



54C r : : 

500 F 
SBC i ' . 
550 FO 
%v.Z F . 
900 FD 
490 FO 
240 FD 

2^0 f: 
600 FD 
63C - : : 
= 

000 FO 
545 r ' ' 
51 F 
6K ; . 
.575 ■ : ■ 
24 " = 
VjZ F . . 
660 FO 



Apple lie 

SUPER PROMOTION 



BON DE COMMANDE 



TOTAL TTC: , F 

-DE 5kg + 30,00 F 

+ DE 5 kg envoi en port du 



NOM. 
ADRESSE. 

TEL. DATE 

CI JOINT Cheque □ C.C.PD 
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73 



mettez 
de la couleur 
dans votre vie 




Bon de commande 

a retourner sous pli affranchi 
aux Editions MEV 

49. rue Lamartine 
78000 Versailles 



2 50 F ttc \ 



Quantite 


Taille 


Prix total 




36/38 










Total 





Ci-joint mon reglement 




ponies 



• la disquette HAIFA Source □ au prix de 55 F la disquette (cf. Pom's n° 5) 

• le logiciel H-BASIC □ au prix de 150 F (cf. Pom's n° 8) 

• le logiciel MUSIC □ au prix de 80 F (cf. Pom's n° 10) 

• recueil n" 1 de Pom's (n os 1 a 4) 

avec ses 3 disquettes au prix de 270 F 

□ sans disquette au prix de 120 F - 



□ les 3 disquettes seules au prix de 150 F_ 



TOTAL : 



Montant 
TTC 



pool's 



Je desire recevoir : 

• les numeros de la revue Pom's □ 4 □ 6 □ 7 □ 8 



au prix de 35 F le numero 



• les numeros de la revue Pom's fj 9 fj 10 

au prix de 40 F le numero 



• les disquettes d'accompagnement des numeros 

□ 1 fJ2 D3 D4 D5 D6 D7 
au prix de 55 F par disquette 



□ 8 D9 D10 



Je desire m'abonner pour 4 numeros a partir du n" 

□ sans disquette au prix de 135 F 

□ avec disquettes au prix de 325 F 



TOTAL : 

Envoyez ce bon de commande et votre reglement a : 

Editions MEV - 49, rue Lamartine - 78000 Versailles 



Montant 
TTC 



Norn 

Adresse 

Ces tarifs comprennent 1' envoi postal en France Metropolitaine. CEE et Suisse (voie aerienne exceptee) 

Pour envoi par avion : nous consulter 



JCR L'UNIVERS 
MICRO-INFORM A TIQ UE 



Special popple 





APPLE He 

L'ordinateur personnel 
Clavier AZERTY/QWERTY. 
Memoire 64 K RAM. 



PROMOTION DE NCEL 

I APPLE He 64 K 

1 Disq 11 avec controleur 

1 Monileur 

NOUS CONSULTER 



PERIPHERIQUES Alle AII + 

Disq II avec controleur 
Disq II sans controleur 
Imprimante SILENTYPE 
Imprimante matricielle APPLE 



CARTES INTERFACE Alle An + 

Cartes 80 Colonnes 
Cartes SO col. + 64 K 
Carte couleur + 80 col. EVE 
Interlace serie 
Interface parallele 




Carte UZ80 CPM 980 F 

Carte langage 16 K 1 150 F 

Carte UTIM horloge 

Carte UTERM 80 col 1 490 F 

MICROBUFFER 16 K pour EPSON 
MICROBUFFER 64 K exteneur 
Clavier numerique Alle ... 1 126 F 
Carte RVB All chat mauve ... 1 297 F 
Poiqnees de jeu Alle "... 250 F 

Joystick Alle 480 F 

DisquettesSF/SD3Mles 10 . . . 210 F 
Disquettes DF/DD 3 M les 1 , . . 4 52 F 

Papier listing 80 col 290 F 

Papier listing 132 col 350 F 



APPLE m 

L'ordinateur professionnel par excel- 
lence. 256 K de memoire. Lecteur de 
disquette incorpore. 



LOGICIELS AIII 

Traitement de texte APPLE WRITER 
Tableau de calcul VIS1CALC 
Comptabilite 
Paye 

Programmes VISICORP 



PROGRAMMES DE JEUX 

Zaxxon 490 F 

Snake Byte 371 F 

Choplifter 361F 

Apple Panic 309 F 

Flight Simulator II 415F 

Sea Fox 309 F 

Computer Air Combat 619 F 

Cartels and Cuthroat 412 F 

Southern Command 309 F 

David Midnight Magic ...... 361 F 

400 AUTRES PROGRAMMES A 
NOTRE CATALOGUE. 



LIBRAIRIE 

Initiation au Basic 107 F 

Introduction au Pascal 160F 

Guide du CPM 117F 

La decouverte applesoft .... 72 F 
La pratique de l'APPLE 72 F 

PLUS DE 150 TITRES A NOTRE 
CATALOGUE. 



58, me Notre-Dame-de-Lorette 
75009 PARIS 
Tel. : (1) 282.19.80 - Telex : 290350 F 



em and e 
t 


— Credit 4-36 mois — Leasing 36-48 moi 

>9, rue du Docteur Escat 
13006 MARSEILLE 























313, rue Garibaldi 

69007 LYON 
Tel. : (7) 861.16.39 



58 RUE N.D. DE LORETTE 













DU LOGICIEL 




premier libre-service 
i r P c'est pouvoir entm 

J.C.K., cesi y C entaines 
proposes sur i\ ock jf 
la librairie «P«"**ji y son t. Et tout 

ICR. P° ur VoUS ' 



56 RUE N.D. DE LORETTE 



TOUS LES MICRO ORDINATEURS 

APPLE •HECTOR»SINCLAIR»ORIC»SEIKO»CASIO» CANON •VICTOR »COMMODORE»SHARP»EPSON 





UK- 



m\m\\ inn 

£=1 




APPLE II - APPLE 
COMMODORE 64 version SECAM 3800 F 
COMMODORE 64 version PAL 2950 F ' 

Catalogue JCR gratuit sur demande. 



ORIC I 48 K + cordon peritel 2180 F 
CASIO FP 200 3800 F 

SINCLAIR ZX 81 580 F 



HECTOR 

48 K HR Graphique Haute Resolution 4390 F 
HRX 4950 F 

Disque 1 Drive pour HECTOR HRX 6500 F 










56-58 ru« 
75 



Tel.: (1)282.19.80 - Telex: 290350 F 



59 rue du Docteur Escat 
13006 MARSEILLE 
Tel.: (91)37.62.33 



313 rue Garibaldi 

69006 LYON 
Tel.: (7)861.16.39 



